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IL N'Y À QU'UNE AMSTRAD EXPO 


C'est du 6 au 9 NOVEMBRE — PARC DES EXPOSITIONS 


PORTE DE VERSAILLES — PARIS 








Il y a de nombreux ordinateurs 
Amstrad. || y a des centaines 
de logiciels Amstrad. || y a bien sûr des distributeurs Amstrad.Mais 
il n'y a qu'une Amstrad Expo sur plus de 6 000 m° : celle organi- 
sée par Amstrad France et SOSIS à la Porte de Versailles à Paris, 
du 6 au 9 novembre 1987, au Parc des Expositions. Tous les nou- 
veaux ordinateurs, tous les nouveaux logiciels et tous les nouveaux 
périphériques seront là. Un véritable atelier sera à votre disposi- 
tion pour vous permettre d'apprendre à vous en servir. Et vous 
pourrez même les acheter sur les stands des quelques 300 expo- 
sants au prix Amstrad. Les amateurs de son et d'image pourront 
entendre et voir les chaînes laser, les magnétoscopes et les télé- 


viseurs Amstrad. EL 
Les professionnels bénéficieront d’une journée spéciale, 


le 9 novembre. C'est ça, la troisième Amstrad Expo, la seule, la 
vraie, la grande. Retenez bien vos dates et à bientôt ! 
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encore. 


Me réveillant un beau matin, je décidais 
qu'après des mois, que dis-je, des années 
de tripatouillages inutiles et de 
bidouilles stériles, l’heure avait enfin 
sonné pour que je mette à l’ouvrage ce 
que tout humain se doit de faire : 

Un chef d'œuvre ! 


Armé jusqu'aux dents de manuels 
fumeux, d’une tonne de papier brouillon 
(recyclé bien sûr), d’un baril d'encre, de 
dix-huit caisses de plumes Sergent Major 
(normalisées AFNOR), de sept cent dix 
huit mille sandwiches au saucisson dont 
un tiers avec moutarde et le reste avec 
des cornichons, je me mettais enfin à 
travailler. 


Ne voulant point démarrer sur des 
approximations hasardeuses, je décidais 
qu'aucun octet ne serait saisi avant que 
le chef-d'œuvre ne s’avoue être parfait. 
Au moins sur le papier. 


Des litres de cafés coulèrent sous les 
ponts de mes diodes internes, des 
monceaux de feuilles calcinées par 
l’âpreté de mes recherches s’empilèrent 
en tas négligents et la lune fit bien des 
simagrées au soleil avant que je ne 
m'exclame : ‘C’est tout bon !*. 


LE 


EDITO 





MON SECOND PROGRAMME... 


Cette fois j'avais tout pensé dans les 
moindres détails, j'avoue que la 
première leçon avait porté ses fruits et 
rien ne pouvait plus s'opposer à 
l’accomplissement de ce que j’appelais 
déjà : la consécration de ma carrière ! 


Il ne restait plus qu'à saisir tout ce joli 
charabia... Je me mis à la tâche sans 
ménager ma peine. Tapant, tapant et 
retapant, le nez sur les touches, je 
restais sourd au crépitement de 
l'imprimante et sûr de mon génie, 
j'ignorais même l'écran... 


Les premiers poils blancs de ma barbe 
venaient de naître quand le RUN 
fatidique allait sublimer ces années de 
laborieux travail. Je le fis donc en 
m'accordant un premier regard sur 
l'écran. Ne le trouvant pas, je lançais le 
programme, me disant que je savais 
tellement bien ce qu'il allait faire que 
cela n'avait pas grande importance... 
Rien ! Il ne se passa strictement rien. 
J'en restais coi. Revenu de ma stupeur 
j'en cherchais la raison et après quelques 
semaines de recherches assidues, je dus 
me rendre à l'évidence : Cela faisait 
vingt ans que je tapais mon programme 
sur ma vieille machine à écrire en 
pensant que c'était mon PCW... 


Décidément ma myopie me joue de 
drôle de tours ! | 
GILLES PROBST 
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LES CONFIDENCES DE LOCOSCRIPT 


TOUS NIVEAUX 












EMEA 
LES PAGES ONT UN SECRET ! 


De retour parmi vous, je 
démarrerais sans attendre sur notre 
sujet du mois qui fera tomber une 
fois pour toutes les derniers 
remparts qui nous séparaient encore 
de ce qui hante chaque 
Locoscripteur.… Les formats de page 
et leur impression. 


Pour fixer les idées, je me dois de vous 
livrer la définition exacte et sans appel des 
mots que je vais utiliser tout au long de 
mon exposé. 


POUCE : Mesure anglo-saxonne 
représentant 25,4 mm 


LIGNE PAR POUCE : Le nombre de lignes 
par pouce du sommet des lettres de la 
première ligne (œil des lettres) au pied de la 
dernière ligne. 

Deux choix sont possibles, soit : 

6 ou 8 lignes par pouce. l’interligne que ce 
choix amène sert de base de calcul aux 
différentes possibilités d’interlignage et 
l'unité de référence est 1. 


INTERLIGNE : Distance séparant les pieds 
des lettres avec ceux des lettres de la ligne 





AAAAAAAAA 


AAAAAAAAA 
BBBBBBBBBB 1 

















BBBBBBBBBB CCCCCCCCCCC 

CCCCCCCCC DDDDDDDDDDD Un pouce 
RE 
PRÉPRUES GGGGGGGGGG : 
FFFFFFFFFFF HHHHHHHHHHH 


6 lignes par pouce 8 lignes par pouce 


suivante en fonction d’un nombre imposé 
de lignes en un pouce. Les possibilités sont : 


1/2 : la moitié d’un interligne 1 

1 : unité de référence correspondant au 
nombre de lignes par pouce 
6 ou 8) 

1 1/2 : Une fois et demi l’interligne 
standard 1 


2, 21/2 et 3 : 2 fois, 2 fois et demi 
et 3 fois l’interligne standard. 
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LIGNE PAR PAGE : Nombre de lignes 
maximum (sans coupure dans le sens 
horizontal) pouvant être imprimées sur une 
page (toute la surface) compte tenu de 
l’interligne et du nombre de ligne par 
pouce. 


CORPS DE PAGE : Nombre de lignes 
pouvant être effectivement imprimées dans 
une page si l’on excepte le nombre de 
lignes de haut de page et de bas de page 
pouvant être réservées soit par l'utilisateur, 
soit par l'imprimante (mise en place d’une 
feuille volante par exemple). 


Maintenant que les présentations d’usage 
sont faites, veuillez prendre en grande 
considération le fait suivant. 


LOCOSCRIPT distingue deux formats qui 
sont en totale corrélation et qui s'organisent 
différemment : 


Le format d’une feuille physique et le 
format d’une page de texte. 


J'explique : Le format d’une feuille physique 
correspond à la hauteur et au type de 
papier utilisé (feuille à feuille ou continu), 
mais aussi au nombre de lignes que devra 
sauter l'imprimante avant d'imprimer 
quoique ce soit (intervale). Ces indications 
ne peuvent être découvertes par le 
programme et a fortiori par l'imprimante si 
l'utilisateur ne les leur communique pas 
avant une impression : 


Les formats de feuilles les plus connus 
sont : 11 POUCES EN CONTINU 
12 POUCES EN CONTINU 
A4 (21/29.7) EN FEUILLE SEPAREE 


Le format d’une page correspond à 
l’organisation des textes par rapport aux 
formats des feuilles susceptibles de les 
recevoir. 


Souvenez-vous en pour l'avenir car rien ne 
pourra changer cet état de fait pour ce qui 


concerne LOCOSCRIPT et bien d’autres 
traitements de texte. 


FORMAT DE FEUILLE 


Pour LOCOSCRIPT ce format se règle par 
l'intermédiaire de l’option [f1] du menu 
d'impression obtenu par [PTR] à n'importe 


LES CONFIDENCES DE LOCOSCRIPT 


quel stade de travail avec le programme. En 
effet, [PTRI] est prioritaire par rapport à 
tout le reste et il vous suffit d'essayer pour 
en être convaincu... 


Après [PTR] et [f1], le menu de la figure 1 
s'inscrit à l'écran. Regardons ses 
particularités pour ce qui est relatif au 
format de la feuille. 


CONTINU : Est à valider pour le papier en 
continu. Il met en service un détecteur 
physique de présence du papier qui 
empêche toute impression en l’absence de 
papier. Ce détecteur peut être mis hors 
service en validant ‘‘Senseur papier inhibé‘:. 


FEUILLE A FEUILLE : Est à valider pour 
les feuilles volantes. Cette option désactive 
la détection physique de papier et met en 
service une détection logique qui 
comptabilise le nombre de lignes imprimées 
pour déduire que la feuille est arrivée à son 
terme. C’est cette option qui provoque le 
fameux message ‘‘attente papier‘ même si 
le papier est présent. 


TAILLE FEUILLE : Cette mesure est 
déterminante. Elle indique le format 

physique de la feuille selon les unités 
suivantes : 


11 Pouces : 66 Lignes par page 
A4 (21/29.7): 70 Lignes par page 
12 Pouces : 72 Lignes par page 


Le nombre de lignes par page signifie 
exactement : Nombre de lignes séparées par 
un interligne de 1 pour 6 lignes par pouce 
pouvant être imprimées du plus haut au 
plus bas d’une feuille. C’est donc la 
dimension exacte en nombre de lignes. 
Cette mesure est totalement indépendante 
de l’interligne choisi dans le texte. 


INTERVALE : Correspond au nombre de 
lignes devant être sautées par l'imprimante 
à la fin de chaque page pour indiquer le 
début de la suivante. Ce nombre de lignes 
est donc à prendre en compte dans le 
format de page des documents. 


Maintenant nous savons que le format d’une 
feuille ne s’indique qu’en lignes et que ces 
lignes sont forcément par 6 au pouce avec 
un interligne de 1. 


FORMAT DE PAGE : 


Nous avons eu de nombreuses occasions 
dans mes précédentes interventions de 
connaître la répartition en bas de page, 
corps du document et en-tête mais sans en 
connaître avec une précision d’horloger les 
caractéristiques que nous allons maintenant 
aborder. 


Si le format de papier utile (taille de la 
feuille-intervale) est connu, regardons 
comment déterminer avec succès les 
possibilités de nos pages dans ce cadre figé. 


Nous pouvons faire varier le nombre de 
lignes par pouce et déterminer ainsi une 
valeur d’interligne standard (de valeur 1) 
que nous pourrons faire varier dans la 
proportion de 1/2 à 3. Les possibilités sont 
donc importantes et le tableau que je vous 
ai réservé vous en donnera les détails : 


INTERLIGNE 
1/2 1 1 1/2 2 2 1/2 
NOMBRE DE LIGNES PAR PAGE 


LIGNE 


POUCE FEUILLE 


11 POUCES 132 66 26 
A4 21/29.7 140 70 28 


12 POUCES 144 72 28 


11 POUCES 88 35 
A4 21/29.7 93 37 
12 POUCES 96 38 





Ce tableau illustre dans l’ensemble ce que 
chacun peut déterminer simplement en 
fonction des impératifs d’un texte, par 
exemple : 


Un corps de texte fixé à 45 lignes : 
combien pourrons-nous mettre de lignes, si 
nous mettons l’interligne à 1 1/2 avec 8 
lignes par pouce ? 


Si nous mettons avec un interligne de 1, 6 
lignes dans un intervale d’un pouce, il 
faudra 45/6 pouces pour mettre 45 lignes 
donc 7,5 Pouces. Si nous sommes en 8 
lignes par pouce et que la page autorise 7,5 
pouces nous aurons 7,5 fois 8 soit 60 
lignes (avec l’interligne 1 qui reste dans 
tous les cas la base de calcul). 

Ayant fixé l’interligne à 1 1/2 nous devrons 
donc diviser ce nombre par 1,5 et obtenir 
40 lignes. 


Pour résumer, la formule est la suivante : 
(Nombre de lignes par page/6) x 8 
Interligne 
dans le cas du 8 lignes/pouce 
ou 
dans le cas du 6 
lignes/pouce 


Nombre de lignes 
Interligne 
Vérifiez-le avec le tableau, plus haut, et 


vous constaterez que la formule fonctionne 
à tous les coups ! 


Il ne vous reste qu’à essayer tout cela avec 
votre LOCOSCRIPT habituel qui, 
confidence pour confidence, fera l’objet 
d’un numéro spécial à vous couper le 
souffle ! M 
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PROGRAMMATION DBASE 














INITIATION 


© ———— 


ous avons vu dans le numéro 10 de 

l'écho du PCW comment créer le 
programme permettant de gérer un 
fichier de données. Nous avons analysé 
les modules de MENU, LECTURE, 
CREATION, ENTREE et SUITE. Nous 
allons étudier maintenant les autres 
modules contenus dans le menu 
principal. 


Module RECHERCHE 


Ce module permet de faire une recherche dans le 
fichier, ce qui est évidemment très utile. Voyons le 
programme d’abord : 





























ERASE 
SET TALK OFF 
à1,10 SAY ‘-------- Recherches diverses-------------- e 
à 2,10 SAY ‘‘1/ Recherche sur le nom‘ 
à 4,10 SAY ‘’2/ Recherche sur le prénom" 
à 6,10 SAY ‘’3/ Recherche sur l'adresse” 
à 8,10 SAY ‘‘4/ Recherche sur le télephone” 
à 12,10 SAY ‘’ Entrez le numéro de votre choix" 
WAIÏT TO CHOIX 
DO CASE 
CASE CHOIX = "1" 
ACCEPT ‘’Entrez le nom recherché ‘ TO n 
LIST FOR NOM = !{n) 
CASE CHOIX = "2" 
ACCEPT ‘Entrez le prénom recherché ‘’ TO n 
LIST FOR PRENOM = !{n) 
CASE CHOIX = "3" 
ACCEPT ‘’Entrez l'adresse recherchée ‘’ TO n 
LIST FOR ADRESSE = !{n) 
CASE CHOIX = "4" 
ACCEPT ‘’Entrez le téléphone recherché ‘’ TO n 
LIST FOR TELEPHONE = !{n) 


ENDCASE 


SET TALK ON 
RETURN 





Le programme est fort simple comme on peut le 
constater. Il consiste à afficher un menu, lequel 
demande à l'utilisateur de préciser sur quelle 
rubrique porte sa recherche en entrant son numéro. 
Il suffit ensuite de faire une boucle avec DO 
CASE/ENDCASE pour tester tous les cas possibles ; 
chaque cas demande d'entrer la valeur de la 
rubrique choisie dans une variable , nommée n. 
Cette dernière est mise en majuscule, puis 


recherchée dans le fichier grâce à la simple 
commande LIST. 
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INITIATION À DBASE 11 - 9e EPISODE 


CREONS NOS PREMIERS PROGRAMMES 


par Patrice BIHAN 





Nous obtenons à l’écran ceci : 


Recherches diverses 
1/ Recherche sur le nom | 
2/ Recherche sur le prénom 


3/ Recherche sur l'adresse 
4! Recherche sur le téléphone 


Entrez le numéro de votre choix 








+ (entrons par exemple 1) 


Entrez le nom recherché : (entrons TOTO) 


00045 TOTO JEAN 12 RUE DES POMMES SEDAN 12233445 
00078 TOTO DENIS 1 ALLEE DES ACACIAS NICE 45465565 
24345465 


00293 TOTO ARTHUR PLACE GOULDEN SEDAN 





(I y a dans le fichier 3 TOTO) 


Module MODIFICATION 


Ce module va nous permettre de corriger 
d'éventuelles erreurs ou simplement de modifier un 
renseignement dans une rubrique sans pour autant 
modifier l’ensemble de l'enregistrement. 









ERASE 


à 3,10 SAY-“’Entrez le numéro de l'enregistrement à modifier ” 
INPUT TO N 

GO N 

à 5,10 SAY “ Coordonnées de la personne appelée : ” 

à 6,10 SAY É 

DISPLAY 

SET TALK OFF 

STORE NOM TO NM 

STORE PRENOM TO PR 

STORE ADRESSE TO AD 

STORE TELEPHONE TO TE 

à 10,1 SAY ‘’Nom GET NM PICTURE “11111111 

à 12,1 SAY ‘Prenom... “ GET PR PICTURE “LILI 

à 14,1 SAY ‘'Adresse.….…. * GET AD PICTURE “III 
à 16,1 SAY ‘Telephone. GET TE PICTURE “HHHLIIII"" 
READ | 
REPLACE NOM WITH NM 

REPLACE PRENOM WITH PR 

REPLACE ADRESSE WITH AD 

REPLACE TELEPHONE WITH TE 


SET TALK ON 
RETURN 























Une fois encore, le programme est relativement aisé 
à comprendre. On entre au début le numéro de 
l'enregistrement à modifier. Notez qu'il eut été très 
facile de faire rechercher l'enregistrement à modifier 
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par le nom de la personne par exemple, comme 
dans le module RECHERCHE. le système 
positionne son pointeur sur l'enregistrement 
demandé grâce à la commande GO n, qui signifie 
VA sur l'enregistrement n. 


Une fois placé là, on demande d’afficher avec 
DISPLAY le contenu de l’enregistrement, histoire 
de vérifier si c’est le bon enregistrement que l’on 
demande, et par la même occasion d’avoir sous les 
yeux en permanence l'enregistrement initial. On 
stocke dans des variables NM, PR, AD et TE le 
contenu des champs. On affiche comme pour la 
saisie les fenêtres en video inverse, à la différence 
près que maintenant elles sont emplies de valeurs. 
On peut alors modifier ou non les champs 
concernés. Dès que l’on valide le dernier, la 
commande READ valide l’ensemble. Les valeurs 
modifiées sont entrées dans les rubriques 
concernées grâce à REPLACE, les valeurs non 
modifiées sont recopiées identiques à elles-mêmes. 


Voyons un exemple d’utilisation : 


Entrez le numéro de l’enregistrement à modifier ; 
(on entre 10 par exemple) 


Coordonnées de la personne appelée : 


00010 BIHAN PATRICE 12 PLACE DES ACACIAS TAHITI 01010101 


Nom à BIHAN ù 
Prénom A PATRICE . 


Adresse … : PAIN) ASENNINTOI NS ALIEN : 
Telephone . : RAS : 





(On corrige maintenant avec les touches flèchées là 
où l’on doit le faire, puis on valide avec RETURN). 


Module EFFACEMENT 


ERASE 


à 1,10 SAY ” Effacement d'un enregistrement..." 
ACCEPT ‘’Entrez le nom de la personne à effacer ‘’ TO N 
LIST ALL FOR NOM= ! IN) 


? Entrez le numéro exact” 
INPUT TO NUM 
GO NUM 


DISPLAY 


? “ Cet enregistrement est en instance d'effacement 
? “ Veuillez confirmer : O/Oui ou N/Non“ 
WAÏT TO TEST 


IF !ITEST)= “O" 

DELETE 

PACK 

? “ L'enregistrement n° ”, NUM, ‘ a été définitivement effacé" 
ENDIF 


RETURN 


Dans ce court module, on entre le nom de la 
personne à effacer du fichier et le système affiche 
tous ceux qui portent le même nom, ce qui permet 
ensuite de choisir le numéro de l’enregistrement à 
bon escient. 




















De plus, il faut confirmer l'effacement pour éviter 
une erreur fatale avant l'effacement réel. 


Voici un exemple d'utilisation : 
te Effacement d’un enregistrement... 


Entrez le nom de la personne à effacer ; (On entre 
TOTO par exemple) 


00045 TOTO JEAN 12 RUE DES POMMES SEDAN 

00078 TOTO DENIS 1 ALLEE DES ACACIAS NICE 

00293 TOTO ARTHUR PLACE GOULDEN SEDAN 
Entrez le numéro exact ; (entrons 78) 

00078 TOTO DENIS 1 ALLEE DES ACACIAS NICE 


Cet enregistrement est en instance d'effacement 
Veuillez confirmer : O/Oui ou N/Non 

— (entrons O pour Oui) 

00001 ENREGISTREMENT(S) EFFACEIS) 


COMPACTAGE TERMINE: x ENREGISTREMENT(S) TRANSFERE(S) 
L'enregistrement n° 78 a été définitivement effacé 


12233445 
45465565 
24345465 


45465565 


Module TRI 


* Procédure de tri 








ERASE 


à 10,10 SAY ’N/....... Nom 

à 12,10 SAY ‘PJ... Prenom ‘ 

à 14,10 SAY ‘AI... Adresse ‘ 
à 16,10 SAY "T/....… Telephone ‘ 


à 18,10 SAY ‘ Entrez la lettre de votre choix ‘” 
WAIT TO C 





IF !(C) ="N" 
INDEX ON NOM TO INDNOM 
USE TEL INDEX INDNOM 

IF 1(C) ="P" 

INDEX ON PRENOM TO INDNRE 
USE TEL INDEX INDPRE 

IF !(C) ="A" 

INDEX ON ADRESSE TO INDADR 
USE TEL INDEX INDADR 

IF !(C) ="T 
INDEX ON TELEPHONE TO INDTEL 
USE TEL INDEX INDTEL 


ENDIF 
RETURN 






Le programme demande de 
choisir la clé servant de 
critère au tri. Le test IF 
permet d’indexer le fichier 
sur l’index désiré. 

La commande USE TEL 
INDEX etc permet d'utiliser 
le fichier indexé. 













On peut remarquer ici que 
l’on se sert de IF pour tester 
les différentes possiblités de 
choix. Le lecteur attentif aura 
remarqué qu'il est tout aussi 
possible de se servir de 
DO CASE/ ENDCASE pour faire la même chose. 


















Voici un exemple d'utilisation : 


Adresse 
Telephone 





Entrez la lettre de votre choix ; (On entre N par 
exemple) et le tri est effectué. On peut ke relire avec 
le module LECTURE. 
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Module FIN 





ERASE . 

? “Nous allons éteindre l'ordinateur ‘ 

? ‘’Mais avant cela, il faut refermer le fichier‘ 
QUIT 





Ce programme parle de lui-même. Comme toujours 
avec un ordinateur, tout fichier ouvert se doit d’être 
refermé, sinon les modifications risquent de ne pas 
être prises en compte, sans parler d’autres désagré- 
ments plus graves. 


Ajout de procédure dans le programme 


Il vous sera très utile certainement de pouvoir ajou- 
ter d’autres procédures dans le programme. Par 
exemple, imaginons vouloir ajouter un module ser- 
vant à afficher les adresses des personnes sur des 
étiquettes auto-collantes, destinées à être collées sur 
des enveloppes. Nous allons donc créer un module 
indépendant mais pour qu'il soit appelable, nous 
devons le préciser dans le module MENU, comme 
ceci : 


Module MENU : 


ERASE 
DO WHILE T 


5 SAY ‘‘C} Création du fichier ‘ 
5 SAY ‘’A/ Ajout d'abonné 

5 SAY ‘’L/ Lecture séquentielle’ 
,15 SAY "’R/ Recherche‘ 

,15 SAY ‘’M/ Modification‘ 

,15 SAY ‘'E/ Effaçement‘ 

15 SAY “T/ Tri 


_— 


+ AJOUT 





@- ©- ©- ©- © © ©- ©- © © © © © 


WAIT TON 
DO CASE 

CASE !{n}="C" 

DO CREATION 
CASE !{n}= "A" 

DO ENTREE 
CASE !{n}="L" 

DO LECTURE 
CASE !{n)="R" 

DO RECHERCHE 
CASE !{n}="E" 

DO EFFACEMENT 
CASE !{n)= "M" 

DO MODIFICATION 


CASE !{n}=""Q" 
DO ETIQUETTES 


+ AJOUT 


ENDCASE 
DO SUITE 
ERASE 





ENDDO 
Le 
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Ensuite, il faut créer le module ETIQUETTES. 
Voyons le programme tout d’abord : 








ERASE 

SET TALK OFF 

à 10,10 SAY ‘" ETIQUETTES ds 

à 14,10 SAY ‘‘ Entrez le nom d'une ville ou RETURN" 
ACCEPT TO VILLE 


STORE 1 TO COMPTEUR 

STORE 1 TO COLONNE 

STORE 1 TO LIGNE 

GO TOP 

ERASE 

DO WHILE.NOT.EOF 

IF ! (VILLE) $ ADRESSE .AND. COMPTEUR X 4 
à LIGNE,COLONNE SAY ‘Mr ‘’+ TRIMINOM)+ " ” 
+ $S(PRENOM,1,5) 
à LIGNE + 1 ,COLONNE SAY ADRESSE 
STORE COMPTEUR + 1 TO COMPTEUR 
STORE COLONNE + 25 TO COLONNE 


ENDIF 
IF ! (VILLE) $ ADRESSE .AND. COMPTEUR ] 3 
STORE 1 TO COMPTEUR 

STORE LIGNE + 3 TO LIGNE 
STORE 1 TO COLONNE 
ENDIF 
SKIP 
ENDDO 
SET TALK ON 
RETURN 














L'idée de ce module est de pouvoir écrire trois 
adresses à la fois, comme ceci par exemple : 


Mr Paul Jean 
avenue du Messie 


Mr BIHAN Patrice 
1 rue des Pinsons 08000 Nice 


Mr Toto Denis 
3 place des Pommes 75000 Paris 





etc... 


De plus, un critère est demandé, concernant le type 
des villes à afficher. Si l’on veut faire des étiquettes 
sur une ville précise ( ou un code postal par exem- 
ple) ou bien si l’on veut écrire à toutes les person- 
nes du fichier. 


Trois variables vont gérer l'affichage : LIGNE, 
COLONNE et COMPTEUR. Les deux premières 
s'expliquent par leur nom. Initialisées au départ à 
1, elles signifient que le premier enregistrement doit 
être écrit à la première colonne et première ligne 
de l'écran (en fait, sur l'imprimante, à l'endroit cor- 
respondant) . Dès que ce premier enregistrement est 
affiché, la variable COMPTEUR, au départ égale 
elle-aussi à 1, vaut 2, et la variable COLONNE 1 aug- 
menté de 25, ce qui signifie que le prochain enre- 
gistrement sera affiché à partir de la colonne 
25 + 1 = 26, mais sur la même ligne de départ. Il en 
sera de même pour le troisième enregistrement, à 
la colonne 26 +25 = 51. On décide d'afficher seu- 
lement 3 enregistrements à la fois, ce qui fait que 
la variable COMPTEUR, qui ne sert qu’à compter 
les enregistrements, permet un test: tant que 
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COMPTEUR reste inférieur à 4, donc varie de 1 à 
3, les enregistrements choisis sont affichés les uns 
à la suite des autres ; dès que COMPTEUR est égal 
à 4, un second test est fait qui remet COMPTEUR 
à 1, qui fait passer 3 lignes à l'affichage et qui remet 
COLONNE égale à 1 de nouveau. Tout ceci 
permettra aux trois enregistrements suivants d’être 
à leur tour affichés au bon endroit. 


On peut voir dans ce programme l'algorithme 
suivant : 


- Entrer la valeur servant au test 
- initialiser à 1 COMPTEUR, LIGNE et COLONNE 
- placer le pointeur au début du fichier 


- TANT QUIL Y A UN ENREGISTREMENT A 
LIRE 


SI 1a ville cherchée est dans l’adresse lue 
ET 

SI le COMPTEUR X 4 

ALORS : 


écrire aux coordonnées LIGNE et 
COLONNE , NOM + PRENOM 


écrire ligne suivante, LIGNE +1, 
même colonne , l’'ADRESSE 


ajouter 1 à COMPTEUR 
ajouter 25 à COLONNE 


aller analyser l’enregistrement 
suivant 


SI la ville cherchée est dans l’adresse lue 
ET 

SI le COMPTEUR X 3 

ALORS : 


remettre le COMPTEUR à 1 
passer 3 lignes plus bas 
remettre la colonne à 1 


Passer à l’enregistrement suivant 
- FIN TANT QUE 


Dès que la question est posée au départ, on peut y 
réponde de deux façons différentes ; si l’on veut des 
étiquettes concernant des personnes habitant 
PARIS, à l'exclusion des autres, nous n’entrerons 
que PARIS. Par contre, si l’on désire atteindre 
toutes les personnes du fichier, nous frapperons 
RETURN. Comment la recherche s’opère-t-elle? En 
fait, nous utilisons la fonction $, qui permet de 
chercher une sous-chaîne dans une chaîne de 
caractères. Si la chaîne cherchée est une chaîne vide, 
ce qui est le cas quand on frappe RETURN, elle 
correspond au premier espace rencontré dans la 
chaîne ADRESSE et de ce fait valide la question : 
on a bien alors tous les enregistrements du fichier. 
Mais la fonction $ permet de dépasser la demande 
de la ville pour rechercher d’autres termes, pourvu 
qu'ils soient dans la chaîne ADRESSE. Par exemple, 
comme cette rubrique dans notre programme 
contient l’adresse complète ( Numéro, rue, code 
postal, ville) , on peut faire des étiquettes à partir 
de n'importe quel critère : par exemple on peut 
choisir par le code postal. 


Par ailleurs, une explication s'impose peut-être sur 
la ligne 


à LIGNE,COLONNE SAY ‘Mr ‘+ TRIMINOM)+ ‘ ‘’ + $(PRENOM,1,5) 


Voyons-la en détail. 


Le signe + est un opérateur de concaténation de 

chaînes, c’est-à-dire qu'il réunit en une seule chaîne 

deux ou plusieurs sous-chaînes de caractères, qui 

sont ici : 

‘Mr «6 

- La variable NOM 

L «6 «6 

- Les cinq premiers caractères de la variable 
PRENOM 


TRIM est une fonction qui permet de supprimer les 
caractères finals blancs d’une variable : si NOM 2 
un espace réservé de 10 caractères, et que seulement 
4 sont occupés par le nom, les 6 autres ne sont pas 
affichés : on gagne donc de la place. 


$(PRENOM,1,5) est une fonction utile qui permet 
de n’afficher que les 5 premiers caractères contenus 
dans le champ PRENOM. Le premier nombre 
signifie que l’on extrait la sous-chaîne à partir de 
celui-ci. 


Un mot encore sur la façon de compter. Par 
exemple : 


STORE COMPTEUR + 1 TO COMPTEUR 


permet simplement d’incrémenter, comme l’on dit 
en informatique la valeur COMPTEUR de 1. En 
Basic, nous aurions énoncé : 


COMPTEUR = COMPTEUR #+ 1 


Pour conclure sur ce programme, rien ne vous 
empêche d'utiliser vos propres codes. Si vous 
pouvez afficher 5 ou 6 adresses sur la feuille, il vous 
faudra changer les valeurs dans les tests IF. S'il faut 
passer plus de lignes, vous devrez l'indiquer dans 


STORE LIGNE + [Votre nombre de lignes] TO 
LIGNE 


Et enfin, je le réservais pour la bonne bouche : 
n'oubliez pas, les amis, d'indiquer à votre PCW 
chéri qu’en dernière analyse, c’est encore sur 
l'imprimante que tout 
ceci doit être affiché. 
Tout ça pour dire 
qu'il faut placer en 
tête du module 
l'incontournable 


SET PRINT ON 








Voici donc la fin 
de ce program- 
me. Nul doute 
que vous sau- 
rez l’amélio- 
rer grandement. 


A la prochaine fois ! 
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LOGOGRAF 


 QUAND 
melele SE MET EN GRAPHES 


LA ONEETHULIER 


L'Echo a déjà eu l'occasion de vous présenter 
différents logiciels de calculs financiers vous 
permettant, soit d'évaluer un patrimoine, soit de 
connaître l'opportunité d'un investissement ou 
encore de calculer la valeur d'une entreprise. Mais, 
comme Napoléon le disait si justement, un bon 
dessin vaut souvent mieux qu'un long discours, je 
vous propose de mettre en graphes saillants et 
ordonnés tous les résultats que vous avez eu 
maintes fois l'occasion d'obtenir. Pour l'occasion, je 
renierai le Basic qui dans sa version de base n'offre 
aucune fonction véritablement graphique et 
choisirai le Logo qui semble vouloir se distinguer 
sur ce terrain là. 


Logo... Le talent méconnu 


Je devine votre surprise... Logo ? Non, vous 
n'avez pas passé l’âge de jouer au Logo ! !! 
N'en déplaise à votre amour propre, le Logo 
est aussi un jeu de construction à l'usage 
des petits et des grands en étant un véritable 
langage de programmation qui n'a qu'un 
défaut : Son prix ! 
Votre enthousiasme retombe subitement ? 
Vous vous demandez combien cette nouvelle 
petite folie va encore vous coûter ? 
Eh bien... Rien, le Logo est gratuit. Il est 
livré par Amstrad (décidément, quelle 
générosité !) sur la disquette système Face 4 
et fonctionnant sous CP/M, il n'attend qu'un 
geste de votre part pour dévoiler des talents 
qu'un Basic jaloux cherchait à cacher à la 
postérité. 
PROFILE.SUB 
Logograf… 
La présentation 


Pour notre première rencontre, 
je ne vous entraînerai pas 
dans les méandres de 
l'initiation à Logo car cette 
application n'exige aucunes 
compétences particulières à 
l'exception de certaines 


et tapez : 


Par Marie-Claire LALANNE 











STATISTIQUES 
ET GRAPHISMES 


LOGOGRAF :CANENBERT EN TROIS DINENSIONS AVEC MORCEAUX SEPARES 





qualités dactylographiques que la saisie des 
nombreuses procédures entraîne. 

Si cela représente un travail long et 
fastidieux, il a l’avantage de pouvoir être 
effectué sous éditeur et particulièrement 
avec Locoscript (Version 1.21 et plus), 
Wordstar ou même ED.COM du CP/M 
(pour les très très courageux seulement). 


En effet, les différents modules constituant 
l'application Logograf sont utilisables par le 
Logo s'ils sont en fichiers ASCII comme les 
éditeurs savent si bien les faire. 

Si vous désirez les saisir directement sous 
Logo vous trouverez en encadré la marche à 
suivre, mais elle n'est pas la plus efficace. 


Logograf... La disquette 


Pour mettre toutes les chances de votre côté, 
je vous conseille de réserver une disquette 
totalement vierge pour cette application. 
Une face étant ce mois-ci, totalement dédiée 
à Logograf, vous garderez l’autre pour le 
mois prochain (je vous réserve une petite 
surprise..….). 

Après l'indispensable formatage par 
DISCKIT, la face Logograf contiendra toutes 
les procédures Logo ainsi que les 
programmes et fichiers nécessaires à un 
lancement automatique (voir encadré 1) 


Encadré 2 


Pour créer PROFILE.SUB, remettez la disquette CP/M face 2 dans le lecteur A 
BASIC RPED [RETURN] 


A l'affichage du menu de RPED remplacez la disquette CP/M par la disquette 
Logograf et tapez sur la touche de fonction [f3] pour créer le fichier 
PROFILE.SUB dont vous taperez le nom en toutes lettres. 


L'écran de saisie de RPED apparaît alors et vous pourrez entrer son contenu en 
toutes lettres soit : 


PIP M:=A:*.LOG [RETURN] 
LANGUAGE 0 [RETURN] 
SETKEYS KEYS.DRL [RETURN] 
LOGO.COM [RETURN] 


Ceci fait, sortez par [EXIT] pressé deux" fois. 
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Logograf... La saisie 


Toutes les procédures données pour 
Logograf sont à saisir avec la plus 
extrême attention car le Logo est très 
chatouilleux sur la syntaxe des ordres. 
Espaces, signes de ponctuation, 
minuscules et majuscules, tout doit 
être strictement identique aux listings 
qui vont suivrent. 


La masse de listing étant très 
importante, je vous conseille de bien 
relire chacun des modules afin d'éviter 
les pénibles instants d’une longue mise 
au point qu'une saisie trop rapide 
impose forcément... (encadré 3) 


Logograf... En route 


Ayant préparé la disquette comme le 
préconise l’encadré et saisi l’ensemble 
des procédures, vous pouvez lancer 
Logograf en initialisant le système 

par : ‘ 
[SHIFT] + [EXTRA] + [EXIT] 


Quelques instants sont nécessaires au 
chargement et au démarrage du Logo 
qui démarre par l'exécution de 
STARTUP. 

Dès l'apparition de ‘‘?‘* qui est le 
prompt du Logo, tapez LOGOGRAF 
[RETURN] pour lancer l'application. 


DISQUETTE LOGOGRAF 


Une disquette de lancement automatique de Logograf impose que soient 
regroupés sur une face vierge de C2F, les fichiers suivants : 


SAISIE DES PROCEDURES LOGOGRAF 


Les procédures sont regroupées en module à saisir et à sauver sous les 
noms suivants : 


PROGO2 
PROGO7 


MENU FIN STARTUP SUITE 
PROGO3 PROGO4 PROGO5 
PROGOB8 PROGO9 et PROG10 


PROGO1 
PROGO6 


NOTE IMPORTANTE: les points d'exclamation situés en fin de ligne sont à 
remplacer par des espaces et signifient que la ligne continue à la ligne 
suivante. 


AVEC LOCOSCRIPT : 


La saisie se fait comme pour un texte normal. La conversion ASCII doit se 
faire une fois que le module a été entièrement tapé et que vous êtes sorti du 
mode édition par [EXIT] suivi de [ENTER]. De retour au disc manager, tapez 
{f7] puis [CHA]IS] + [ENTER] pour générer le fichier ASCII et sélectionnez le 
groupe 0 de la disquette Logograf pour les recevoir. 


AVEC LOGO : 


Lancez la disquette Logograf préparée comme cela est décrit dans les 
précédents encadrés par [SHIFTIIEXTRAJ]JIEXIT] et attendez l'apparition de 
‘?' pour taper chaque module. Ces modules sont composés de procédures 
démarrant par ‘’To’’ suivi de leur nom plus les variables et se termine par 
‘’end'’. Ces deux lignes étant distinctes du reste de la procédure. 


Pour corriger une ou plusieurs lignes faites : ed NOM DE LA PROCEDURE et 
corrigez à l’aide des flèches de déplacement, de [EOL] (pour aller en fin de 
ligne ou en début avec [SHIFT]) et [DEL] pour effacer un caractère. 

La sauvegarde d'un module avec ses procédures s'effectue une fois la saisie 
terminée et bien vérifiée. Sauvegarde par : save ‘‘’a:NOM DU MODULE’ 
[RETURNI]. 

Exemple : save ‘‘’a:STARTUP’" [RETURN] 


Notez qu'aucune extension n'est nécessaire 


Une fois la saisie du module suivant effacez le contenu de la mémoire par : 
ct erall recycle [RETURN] 
Enfin le chargement d'un module avec ses procédures s'obtient par : 
load ‘’A:NOM DU MODULE" 





Encadré 3 


Encadré 1 


A)PIP 


CP/H 3 PIP VERSION 3.0 
EAN nes 


COPYING - 


J14FCPM3.EMS, SUBMIT.COM, PROFILE.SUB, LOGO.COM, LANGUAGE.COM, 
SETKEYS.COM, PIP.COM, KEYS.DRL ainsi que tous les modules Logograf. 


Voilà comment procéder : 


Allumez le PCW et insérez la disquette CP/M face 2. 


A l'apparition de ‘A) ‘ tapez : PIP [RETURNI laissez cette disquette dans le 
lecteur A et à l'apparition de ‘*’ tapez : M: = *.EMS [RETURN] . 


puis M:=SETKEYS.* [RETURN] 
puis M:=PIP.* [RETURN] 

puis M: = SUBMIT.* [RETURN] 
puis M: = LANGUAGE.* [RETURN] 


remplacez la face 2 par la face 4 (l’autre disquette CP/M) 


et ‘*’ toujours présent à l'écran, 
tapez : M:=LOGO.* [RETURN] 
puis : M:= *.DRL [RETURN] 


remplacez la face 4 par la disquette vierge 


et ‘*’ toujours présent à l'écran, 
tapez A:=M:*.* [RETURN] 
puis [STOP] 


A) ’ revient et si vous tapez DIR [RETURN] vous devez constater qu'à 
l'exception de PROFILE.SUB (à créer suivant les explications de l’encadré 
PROFILE.SUB) tous les fichiers énoncés plus haut sont présents sur la disquette 
(si ce n’est pas le cas, recommencez la procédure comme elle est décrite). 
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Après affichage d’un écran de présentation, 
‘le menu vient alors vous proposer 11 
possibilités auxquelles vous avez accès en 
tapant leur numéro suivi de [RETURN]. 


CROIX DU NODE DE REPRESENTATION 
Voulez - vous: 
À - representer les valeurs sous forme de: 
1 - une courbe siaple? 
ê - une courbe avec surface reaplie en noir? 
3 - une courbe avec surface renplie en rayures? 


4 - un histogramne siaple (barres en blanc) ? 


5 - un histograane avec barres teintees en noir? 
6 - un histogramne avec barres en trois dinensions? 
7 - un histogranne sous forne de tours hexagonales? 
8 - un canenbert siaple? 
$ - un canenbert en trois dinensions? 
10 - un canenbert en 3 D avec norceaux separes? 
B - quitter ce programe? (11) 
Votre choix,s'il vous plait (entrez le nonbre de 1 à 11 correspondant a votre choix) :E 


Figure 1 
Graphes et données 


Chaque graphe s'affiche après que vous ayez 
entré, dans un ordre croissant, un maximum 
de dix valeurs. Si vous n’en avez que 5 à 
représenter, entrez les 5 autres en leur 
donnant une valeur très faible ou égale à 
zéro. 


Dans tous les cas, il faut entrer une onzième 
valeur, plus grande que toutes les autres, 
afin que le programme 
calcule l'échelle 

de représentation. ENTREE DES VALEURS 


Ceci fait, le graphe se entrez la preniere valeur, ,:123 


trace dans un temps 
aussi variable que sa 
complexité l'exige. 


entrez la deuxiene valeur, .:63 
entrez la troisiene valeur, .:47 
entrez la quatriene valeur. .:051 


Pour permettre une entrez la cinquiene valeur. :45 


recopie d'écran aussi 
nette que possible par 
[EXTRA] + [PTR], 
chaque graphe occupe la 
totalité de l’écran. 


entrez la sixiene valeur....:73 


entrez la septiene valeur...:96 


entrez la huitiene valeur... :143 
entrez la neuviene valeur...:175 
entrez la dixiene valeur... .:35 
Il est aussi possible de 
sauvegarder l'écran en 
pressant [S] et de 
revenir au menu 
principal par [M]. 


entrez une valeur superieure 
a toutes les autres...,....,:5008 


On entre les valeurs. 
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Logograf... Une affaire à suivre. 


Alors, conquis ? J'espère que cette 
application vous a persuadé que le Logo 


est bien plus qu’un jouet sans 
valeur et qu'il mériterait un 
peu plus d’égard de la part de 
nombreux programmeurs. 
Quoique vous en décidiez, je 
ne peux que vous conseiller 
d'insister en commençant par 
améliorer Logograf sur 
certains détails qui ne 
demandent pas d’effort pour 
céder à votre volonté. Le 
nombre de valeurs pouvant 
être entrées et représentées en 
est un exemple. 


De quoi s'occuper en 
attendant de se retrouver 
dans le prochain numéro 
pour Logotram, le 
complément indispensable 
de Logograf. 


Et maintenant, 
à vous de jouer ! 


LOGOGRAF : COURBE AVEC SURFACE 


REMPLIE DE RAYURES 





[LOC TENUE TE A0 


| 


to ORIENTATION 
setcursor [87 29] make "CHOIX r 
ts ct setcursor [28 15] type tPatientez un moment ,s'il vous! 


HU [22 17] type [j'ai besoin d'un certain temps pour! 


travailler!] 

fs ht recycle 

if CHOIX = 1 [load "PROGROI PROGR] 

if CHOIX = 2 [load "PROGRO2 PROGRO2] 

if “CHOIX = 3 Cload "PROGROS PROGRO3] 

if :CHOIX = 4 [load "PROGRO4 PROGRO4] 

if :CHOIX = 5 [load "PROGROS PROGRAS] 

if CHOIX = 6 [load "PROGROE PROGROS] 

if CHOIX = 7 (load "PROGRO7 PROGRO7] 

if CHOIX = 8 Cload "PROGROS PROGROS] 

if CHOIX = 9 [load “PROGRA9 PROGRO9] 

i 1 iCHOUX = 10 Car "MENU recycle load "PROGRI8 PROGRI8 load! 
if CHOIX = 11 [load "FIN ts ct FIN pres "TOPLEVEL] 
sake "N CN + 1) make "NOM word "GRAF ('N) 

ern CHOIÉ vi v2 v3 va v5 vé v7 vê v8 é v19 n] recycle fs ht! 
ja "SUITE SUITE 

to SAI 

rte a ct MASQUE ENTRÉES 

to MASQUE 

setcursor [37 4] pr CENTREE DES VALEURS] 

setcursor (20 7] pr Centrez la preniere valeur, ,:] 
setcursor [20 91] pr Centrez la deuxiene valeur. ,'] 
setcursor [20 11] pr [entrez la troisieme valeur, ,:] 
setcursor [20 13] pr Centrez la quatriene valeur, ,:] 
setcursor [20 Le pr Centrez la cinquiene valeur, ,!] 
setcursor [20 171 pr [entrez la sixiene valeur, ,,!] 
setcursor [20 19] pr Centrez la septiene valeur, ,,;] 
setcursor [20 21] pr lentrez la huitiene valeur, ,,:] 
setcursor [20 23] pr Centrez la neuviene valeur, , ,'] 
setcursor [20 25] pr [entrez la dixiene valeur, ,,1] 
setcursor [20 27] pr Centrez une valeur superieure} 
sur (20 29] pr La toutes les autres,,,,,,,,,!1 
to ENTRÉES 


setcursor [49 7] make "vi rq 
setcursor [49 9] make "v2 rq 
setcursor [49 11] make "v3 rq 
setcursor [49 13] make "v4 rq 
setcursor [49 15] nake "v5 rq 
setcursor [49 17] aake "v6 rq 
setcursor [49 19] make "v7 rq 
setcursor (49 21] aake "v8 rq 
setcursor [49 23] make "v9 rq 
setcursor [49 25] make "vl@ rq 
setcursor (49 29] nake "n rq 
recycle 


end 

to LOGOGRAF 

setd "an: TITRE fs load "SUITE er "TITRE recycle 

ts ct setcursor [28 15] pr [Patientez un aoment s'il vous! 
Le MENU ORIENTATION 


to TITRE 

ct setcursor [30 11] ru 11 Ctype CX \ 
setcursor [30 121 type Lx] setcursor [6 
EU (30 131 type [tk] setcursor F 

OÙ G\ R\ A\ F]) setcursor [63 13] pr CX] 
setcursor (30 141 type LX] setcursor [6 
setcursor (30 151 t ‘a Ex] setcursor Fe 


C* 
3 | C* 
8 e 
3 
" ] 
- Claire LALANNE) setcursor [63 151 p et 
5 
F 
3 
1 


] pr [X] 
] pr [X] 
] type EL\ O\ G\! 
}] 


r (4) 
ype [pour! 


r [4] 


setcursor [30 161 type [4] setcursor Ps 

setcursor pe, ne type [4] ALU [3 
HO "] setcursor [63 | 3,8 

setcursor tU 184 ty pe [+] ur eer 

setcursor [30 19] ou 1 Ctype EX \ 

make "N 0 

end 

to MENU 

er "SUITE recycle 

ts ct seteursor [30 1] st [CHOIX DU MODE DE REPRESENTATION] 

setcursor [5 31 pr [Voulez - vous! 

TE (8 5] pr [A - representer les valeurs sous formel 

e; 


1] p 
12 
131 À 

14] p [ 

ri ype (par Mariel 
16] 

17] s 

18 

pr F4] 


] 


setcursor [11 7] pr El - une courbe siaple?] . 
EE LS [11 91 pr [2 - une courbe avec surface renplie en! 
noir 


setcursor [11 11] pr [3 - une courbe avec surface remplie en! 

CHE 

u SEUL [11 137 pr [4 - un histogranne sinple (barres en! 
anc) ? 

er [11 157 pr [5 - un histogranne avec barres teintees! 

en noir? 

setcursor [11 17] pr [6 - un histogranne avec barres en trois! 

dinensions?] 

setcursor [11 191 pr [7 - un histogranne sous forme de tours! 


hexagonales?] 

setcursor [11 21] pr [8 - un canenbert SIN 

setcursor [11 23] pr [9 - un camembert en trois dinensions?] 
sors [10 25) pr [10 - un canenbert en 3 D avec norceaux! 
separes? 

seteutaon TE [8 27] pr [B - quitter ce TA te (11)] 
setcursor [1 29] pr [Votre choix,s'il vous plait (entrez le! 
Dour de 1 à 11 correspondant a votre choix) :] ORIENTATION 
en 


nee 


to MENU 

er "SUITE recycle 

ts ct setcursor [30 21 pr [CHOIX DU MODE DE REPRESENTATION] 

Cr 5] pr [Voulez vous representer les valeurs sous! 
orne de' 

setcursor (18 71 pr [-une courbe sinple?] setcursor [81 7] pr! 


setcursor [10 9] _ C-une courbe avec surface remplie en! 
noir?] setcursor [81 9) pr [2] 

setcursor [10 11] pr [-une FAuTES avec surface renplie en! 
rayures?] setcursor [81 11] 

setcursor [10 13] pr [-un  hiÉlgrame simple (barres en! 
blanc) ?] setcursor [81 | [} 

setcursor [10 15] nr. E-un histogranne avec barres teintees en! 
noir?] setcursor [ r [5] 

setcursor [10 17] pr É un Ristogranne avec barres en trois! 
dinensions?] setcursor [81 17] pr 

setcursor [10 19] pr [-un histogranne sous forme de tours! 
ARE ] setcursor [81 19] pr [7] 


FUI El 0 21] pr C-un canenbert sinple?] setcursor (81! 

pr 

setcursor [10 23] pr [-un canenbert en trois dimensions?]! 
setcursor [81 23] pr L 

setcursor [10 25] pr ([Voulez - vous quitter ce programme?1! 
setcursor [80 25] pr [11] 

LEE (16 27] pr [Votre choix, s'il vous ou (entrez le! 
nombre de 1 a 11 correspondant à votre choix) :] 

ORIENTATION 


end 





LOGOGRAF : TOURS HEXACONALES EN TROIS DIMENSIONS 


LOGOGRAF + L'ECHO DU PCW N°11 


[LOU NV IUT Hole 


EE PER | à SR RE 


to SUITE 

make "TOUCHE ascii rc 

if ÉLUS = 83 [setd " a! savepic :NOM setd "a! nake "TOUCHE! 
asc 

if oE = 115 (setd "a: savepic NOM setd "nm: make "TOUCHE! 
ascii 

if not : TOUCHE = 242 [SUITE] 

if TOUCHE = 242 Cht cs ts setcursor [28 15] pr [Retour aul 
MEN, pour un nouveau choix] ern [TOUCHE NOM] MENU] 

en 


ae ne ee 

PROGRO] 
SAISTE COURBSIMPLE 41 1v2 "v3 :v4 VS 1 v6 ‘v7 :v8 :v9 :v10 :n 
1 MCOURESIMPLE er VALESIMPLE er “PAOBRÔT recycle 
to COURBSIMPLE :v1 v2 :v3 tv vS v6 :v7 :v8 :v9 :v10 m 

1 "echelle make "echelle 52 ï 

"LT round :vl * echelle local "“Y1 make “V1! 

"L2 round :v2 * echelle local "V2 make "Y2! 
"L3 round :v3 * "V3 make "V3! 
"L4 round :v4 * "YA make "Y4! 
"LS round :vS À "Y5 make "Y5! 
"L6 round :v6 * "V6 make "V6! 
"L7 round :v7 * *Y7 make "V7! 
ee make "LS round :v8 *# "Y8 make "Y8! 
+ make "L9 round :v9 * "V9 make "Y9! 
al, ti nake "L19 round :v19 # ‘echelle local "Y10 make! 
ts cs ht AXESIMPLE pu 
setpos se -360 : il pd setpos se -273 :Ÿ2 setpos se -196 :Y3 


setpos se -119 :Y4 
Arte se -42 :Ÿ6 setpos se 35 :Y6 setpos se 112 :Y7 setpos! 


e make 
"L2 make 
260 
"L3 make 
260 
"L4 make 
260 
"LS make 
260 
"L6 make 
260 
"L7 make 
260 


‘echelle local 


‘echelle local 
‘echelle local 
echelle local 
‘echelle local 
echelle local 


‘echelle local 


se 189 ; 
getpos se 266 :Y9 “ta se 343 :Y10 setpos (343 -260] 
ne setpos [- -340 -255] 


to AXESTMPLE 

pu setpos [-350 -260] pd "ons (359 -260] seth 0 1t 45 fd (5! 
{cos 45) 1t 135 fd 10 1t 13 

AA 45) pu setpos [-350 -260] pd setpos [-350 258]! 

e 


5 
lt 45 fd (5 / cos 45) 1t A 

fd 10 1t 135 fd (5 / cos 45) pu 

HAL [-350 -260] seth 9 fd 10 seth 90 pd 
en 


a 2 Ne 


to AXESIMPLE 

pu setpos [-359 -260] pd rs (350 -2601 seth 0 LE 45 fd (5! 
{ cos 45) 1t 135 fd 10 14 13 

fd (5 / cos 45) pu Ss [-350 -2601 pd setpos [-350 258]! 
seth 270 


45 fd 5 cos 45) 1t 135 


lt 
fd 16 1t 135 fd C5 / cos 45) pu 
setpos [-350 -2601 seth 90 fd 16 seth 90 pd 


Ji 
PROGRO 

BUSTE D RBRE" INT V2 148 V4 VS V6 :v7 :v8 :v9 :v10 1m 
er COURBREN er MALESIMPLE er "PROGRO2 recycie 
to COURBREN :v1 :v2 iv3 V4 vs :v6 a VB :v9 :v19 1m 
local "echelle nake “echelle 520° l' 
til 7 make "L} round :vl * sachets local "Y] nake “YI! 
lui NT make "L2 round :v2 * ‘echelle local "V2 nake "Y2! 
local *L3 make "L3 round :v3 & 'echelle local "V3 make "V3! 


Local "L4 make "LA round :v4 X echelle local "Y4 make “V4! 
'L4 - 260 


14 


"ysl 
"Y6! 
"7 


nn make "LS round :v5 X ‘echelle local "YS make 
Je make "LE round :v6 * ‘echelle local "V6 make 
"L7 make "L7 round :v7 À 
260 

Je make "LS round :v8 * "ygl 
"L9 make "L9 round :v9 * "ygl 


'] 
local ee snake "L19 round :v10 *# echelle local "YI0 make! 
1ÿ10 : L19 - 269 

fs cs fl AXESIMPLE p 

setpos se -350 :Y1 Éd setpos se -273 :Ÿ2 setpos se -196 :V3! 
setpos se -119 VA 

see se -42 :Ÿ5 setpos se 35 :Y6 setpos se 112 :Y7 setpos! 


se 189 :Y8 
:Y9 setpos se 343 :Y10 setpos [343 -260] 


setpos se 266 

pu setpos (-340 -255] setpos [- 360 -2601 seth 80 fd 5 pd fill! 
un pu 

en 


echelle local "V7 make 
echelle local "V8 make 
echelle local "V9 make 





V7 V8 :v9 VI ‘n 


to PROGRO3 

SAISIE COURBRAY :v1 V2 :v3 :v4 :v8 : 
er "COURBRAY er “AXESIMPLE er *cHURBÈTR er "STRIREMP er! 
ES recycle 


fe 1V3 V4 VS Ha nl V8 V9 :v10 ‘a 
nake ‘echelle 520 
round :vl À LS local "V1 make "VI! 
“Y2 make "Y2! 


V2 X 
"V3 nake "V3! 


Le make V3 À 
"L4 round :v4 "YA make "Ya! 
"VS make "VS! 


6 

"L4 make 

260 

Us make "LS round :v5 * 

2 make "LG round :v6 * "V6 make "V6! 
e make "L7 round :v7 * “V7 make "V71. 
2e make "L8 round :v8 * "V8 make "Y8! 
15 make "L9 round :v9 * "V9 make "V9! 
"L10 Eu "L16 round !vi9 # ‘echelle local "Y19 make! 


:LIO - 269 
fs cs ht AXESIMPLE pu 
setpos se -350 dl pd setpos se -273 :YŸ2 setpos se -196 :V3! 
setpos se -119 : 
setpos se -42 NE setpos se 35 :YŸ6 setpos se 112 :Ÿ7 setpos! 


se 189 :Y8 
setpos se 266 :Y9 setpos se 343 :Y1Q setpos [343 -260] 
(-350 +. pd seth 4 COURBSTR :L1 :L2 :L3 :L4 LS! 


u setpos 
i nine 1L8 :'L9 : 


to TAUESTHPLE 

pu ie [-350 Sn Ai RES [350 -260] seth & 1t 45 fd (5! 
{ cos 45) 1t 135 

fd HAS 45) pu nee C-350 -260] pd setpos [-350 258]! 
seth 

lt 45 fd (5 / cos 45) 1t 135 

fd 16 1t 135 fd (5 / cos 45) pu 

setpos [-350 -260] seth 90 fd 14 seth 90 pd 


end 
to ee d 12 :L3 LA (LS LG :L7 :L8 :L9 :L19 


ri “caurenet 1] 
local "echelle 
1 "LI make "LI 


260 
"L2 round 


"L2 make ‘echelle local 
260 
"L3 round 


‘echelle local 
‘echelle local 
echelle local 
echelle local 
‘echelle local 
echelle local 


echelle local 


local "$ local “| 

make A LI make "L CCIL2 - LI) / 7) STRIREMP :S :1 

make "S L2 make "1 CC'L3 - :L2) / 7) STRIREMP :S :1 

make “S "L3 make "1 CC'L4 - :L3) / 7) STRIREMP :S 1 

nake "S 'L4 make "1 CC'LS - LA) / 7) STRIREMP :S :] 

make "S :LS make "1 CCIL6 - :LS) 7 7) STRIREMP :S :1 

make "S :L6 make "1 CC'L7 - :L6) / 7) STRIREMP :S :1 

make “S 'L7 make "1 CC'L8 - :L7) / 7) STRIREMP :S :1 

nake "S :LS make "1 CC'L9 - :L8) / 7) STRIREMP :S :1l 

nake "S 'L9 make "1 CC'L1Q - :L9) / 7) STRIREMP :S :1 


end 

to STRIREMP :$ :1 
repeat 7 [make "S (:S + 
end 


41) rt 96 fd 11 1t 90 fd :S bk :S] 


LOGOGRAF + L'ECHO DU PCW N°11 


PROGRAMME LOGO 


PR 


PROGRO4 
SR HISTOGRAMME V1 :v2 V3 :v4 VS :v6 :v7 :v8 :v9 :vlôl 


LE [LI L2 L3 L4 LS L6 L7 L8 L9 LI 
er "HISTOGRAMME er "AXESIMPLE er MHISTRARRE er "DIMENSIONS er! 
ui recycle 


16 Dmenstons NT 42 143 V4 VS V6 ‘V7 V8 19 :v10 mn 
local "echelle nake "echelle 520 / '" 
make "LI round :v1 * ‘echelle 

make "L2 round :v2 *X "echelle 

make "L3 round : ‘echelle 

make "L4 round : echelle 

“ake "LS round :v5 *X 'echelle 

make "LE round !v6 X echelle 

sake "L7 round : ‘echelle 

make "LS round LV echelle 

make "L9 round : * ‘echelle 

make "LI round oi i echelle 


end 

CE HISTOGRAMME :v1 :v2 sv3 v4 1 vS 1 v6 :v7 :v8 :v9 :v18 mn 
DE 1] V2 1V3 vd VS ivé iv] V8 :v9 1v10 7 | 

Ai . ht ANÉSIMLE 


HISTBARRE : 


end 
to HISTBARRE ; 
Tu 0 fd ï rt 90 fd 50 rt 90 fd :1 rt 90 fd 50 bk 60! 
seth 


ri AXESIMPLE 

pu Du [-350 pile AUX setpos [350 -260] seth à 1t 45 fd (S! 
| cos à 7 1t 135 fd t] 

fd (5 / b 45) pu ME C-350 -269] pd setpos [-350 258]! 


seth 270 
it 45 fd (5 / cos 45) 1t 135 
fd 10 14 136 fd (5 / cos 45) pu 
ou (-350 -260] seth 90 fd 10 seth 90 pd 
en 


a 


to DIMENSIONS svt v2 v3 v4 45 :v6 :v7 :v8 :v9 :v10 :a 
local "echelle nake "echelle 520 / 1" 
nake "LI round :vl * echelle 

snake "L2 round V2 j ‘echelle 

make "L3 round :v3 À ‘echelle 

make "L4 round vd : ‘echelle 

make "LS round VS X "echelle 

sake "L6 round :v6 * ‘echelle 

aake "L7 round iv] * ‘echelle 

nake "L8 round V8 À à ‘echelle 

make "L9 round :v9 # ‘echelle 

ue *L1@ round :v14 } echelle 


A AXESIMPLE 

pu Ut RARE pd ue (350 -260] seth © 1t 45 fd (5! 
cos 

fd (5 / cos 45) pu PU (-350 -269] pd setpos [-350 258]! 


seth 270 
it 45 td CS / cos 45) 1t 135 
fd 10 1t 135 fd (5 / cos 45) pu 
setpos [-350 -260] seth 90 fd 10 seth 90 pd 


en 

Lo PROGROS 

SAISIE HISTNOIR svl sv2 sv3 sv :v5 :v6 V7 :v8 :v9 :vl8 : 
er "HISTNOIR er "ANESIMPLE er ie à er "ÉIMENSIONS 
sen [LT L? L3 L4 LS L6 L7 L8 L9 LI81 er "PROGRÈS recycle 
en 


15. 


to HISTNOIR 1v1 rv2 1v3 1v4 VS V6 V7 :v8 :v9 :v10 1m 
DIMENSIONS ul v2 sv3 V4 VS 1 v6 v7 :v8 :v9 :vl8 ‘1 
fs cs ht AXÉSIMPLE 

HISTFILL 


NAS L10 


ri HISTFILL :1 

pd seth 0 fd :1 rt 90 
LU 315 pu fd 2 pd fi 
en 


98 fd :1 rt 90 fd 58 bk 50! 
à seth 90 fd 10 seth 0 


a 


Lo PROGROS 

SAISIE HISRASD : V1 Lv2 43 2 V4 VS 2 V6 : V7 V8 V9 :v1O a 
er "HISGRA3D er RES TÉLÉ €: er SHARE à er HAUTE st 
[LI L2 L3 LA LS L6 L7 L8 L9 L10) er "PROËROG recycle 


end 

te HISGRA3D :v1 :v2 se un VS :v6 :v7 :v8 1 v9 :v10 :n 

DIMENSIONS :vl :v2 V3 !v4 VS V6 NT V8 V9 :V19 ‘A 

fs cs ht ANÉSIMPLE 

seth 270 fd 10 pd seth 45 fd (18 / cos 45) seth 0 
HISBAR3D :LI 


HISBAR3D 4L10 
seth 180 td 10 
de [340 -25 


to HISBAR3D :1 

pd seth 0 fd :1 rt 90 fd Le 90 fd :1 rt 90 fd 45 bk 45! 
seth 45 fd (15 / cos 45) s 

fd :1 seth 270 fd 45 sain 5 te (15 / cos 45) seth 90 fd 45! 
seth 45 fd (15 / cos 45) pu 

seth 250 fd 19 pd fill Du bk LE QE 225 pe 


LE us [-350 -2601 seth 90 pd fd 729 pu! 
] pd fill pu 


repeat 5 [fd (3 / cos 45) k :1 seth 225] 
A [cos 45) seth 180 fd : ui EH Si fd 1 seth 180 fd 15! 
se 


end 

É DIMENSIONS :vl :v2 :v3 :v4 vs Le INT 148 V9 :v18 a 
local "echelle nake "echelle 520 /' 
sake "L1 round :vl *X echelle 
nake "L2 round ‘echelle 
make "L3 round ! echelle 
sake "L4 round echelle 
sake "LS round : echelle 
sake "L6 round : echelle 
sake "L7 round : echelle 
nake "LS round :v8 * ‘echelle 
sake "L9 round :v9 ‘echelle 
sake "LI round :v10 À ‘echelle 


end 

to AXESIMPLE 

pu setpos [-350 -260] pd ps (350 -2601 seth @ 1t 45 fd (5! 
1 cos 7. 1t 135 fd 18 1t 13 

fd (5 / cos 45) pu setpos [-350 -260] pd setpos [-350 258]! 
seth 270 

1t 45 fd (5 / cos 45) LS 135 

fd 10 1t 135 fd (5 / cos 45) pu 

us [-350 -2601 selh 90 fd.1@ seth 90 pd 

en 


LOGOGRAF + L'ECHO DU PCW N°11 


PROGRAMME LOGO 


D mm 


to PROGRO7 

recycle 

ts ct setcursor [40 10] pr CATTENTION !] 

pe [Pour ce ML les valeurs doivent etre entrees! 
BLIGATOIREMENT dans L'ORDRE CROISSANT !] repeat 1500 []! 


SAISIE 
HEXAGRAM V1 v2 1 v3 vd :vS 1 v6 1 v7 :v8 :v9 :v10 ‘mn 

er "HEXAGRAM er "HEXATOUR er “LONGUEUR er "HEÏRAIT er! 
\HEXRAL2 ern LI L2 L3 LA LS LE L7 L8 L9 LI] er "PROGRO7! 
recycle 


end 

to HEXAGRAM :v1 :v2 v3 :v4 1 vS v6 °v7 1 v8 °v9 :vI0 

LONGUEUR :v1 1 v2 :v3 ‘v4 VS "v6 47 VB V9 :v10 m 

fs cs ht pu setpos [-200 -2101 selh à ps Hd :L6 bk :L6 seth! 

sè Dei 3 Crt 60 fd 50 1t 60 fd 50 1t 60 fd 50 rt 69 fd 50]! 
x 


Lu setpos [-200 -2101 seth @ HEXATOUR :L1 HEXRAIT :L1 
setpos [-50 -210] seth 9 HEXATOUR :L2 HEXRAII :L2 
setpos [100 -210] seth @ HEXATOUR :L3 HEXRAI :L3 
setpos [-125 -167] seth @ HEXATOUR "LA HEXRAI! (: 
setpos [25 -167] Seth © HEXATOUR "LS HEXRAII (:L 
setpos [-200 -1231 seth 9 HEXATOUR :L6 HEXRAIT ( 
setpos [-50 -123] seth @ HEXATOUR :L7 HEXRAIT (: 


R AI 

setpos [25 -80] seth à HEXATOUR LIQ HEXRAIT CL 
pu setpos [-200 -36] pd setpos [-250 -36] setpos t- 
Setpos [300 -263] setpos [2 
setpas (200 -36) pu 
setpos [-359 263] pd setpos [359 2631 setpos [359 -265]! 
Hd (-359 -265] setpos [-359 263] pu setpos [-75 -250] pd! 
Le pu recycle 
e 


n 
to HEXATOUR :L 

pu rt 30 repeat 6 Cfd 50 rt 601 pd 1t 30 fd :L bk :L 1t 30 pu 
k 50 rt 30 pd fd :L bk :L rt 90 pu fd 50 1t 98 pd fd :L bk! 
1Lrt 30 ue fd 50 It 30 pd fd :L rt 30 
repeat 6 [lt 60 fd 50] 

pu 1t 120 fd 16 pd fill pu bk 10 seth © pd 


en 
to LONGUEUR rvl :v2 1v3 v4 vS 1 v6 147 :v8 :v9 :v10 n 
local “echelle nake ‘echelle 300 / " 

nake "LI round :vl # ‘echelle 

aake "L2 round :v2 * ‘echelle 

nake "L3 round :v3 * ‘echelle 

make "LA round :v4 * echelle 

nake "LS round :vS # ‘echelle 

nake "L6 round :vé * ’echelle 

make "L7 round :v7 # ‘echelle 


aake "LS round :v8 # echelle 
nake "L9 round :v9 # ‘echelle 
nake "L10 round :v18 À ‘echelle 


end 
to HEXRAIT :R 
seth 210 pd repeat 5 Cfd 16 1t 30 fd :R bk :R rt 30] pu 


end 

to HEXRAI2 :T 

seth 30 bk 50 repeat 5 [make "T :T + (20 # cos 30) fd 10 1t! 
us Tfd':T # 301 seth 0 pu 

en 


ee IN 


to PROGROE 
SAISIE CAMENBERT ivl Lv2 :v3 V4 LvS :v6 V7 :v8 LV VIe cn 
er *CAREMBERT er CERÊLE er "SECTEUR ern Épil er FPROGROB! 
recycle 


en 
to CAMEMBERT vl 1v2 :v3 1v4 45 1v6 1 v7 :v8 :v9 :v10 :a 
make "a "" 


local "t make "E Crvl + V2 + 543 + sv4 + V5 + :v6 + :v7 +! 
V8 + :v9 + :v10) 

4 nake on (360 / :t) 

fs cs ht CERCLE 200 
SECTEUR round :vl * :pro 200 

SECTEUR round :v2 *# 'pro 209 

SECTEUR round :v3 # :pro 209 

SECTEUR round :v4 *X ‘pro 200 

SECTEUR round :v5 à :pro 200 

SECTEUR round :v6 * :pro 200 

SECTEUR round :v7 * :pro 200 

SECTEUR round :v8 ? 'pro 200 

SECTEUR round :v9 * :pro 200 

SECTEUR round :v1@ * pro 200 

pu setpos (-350 260] pd setx 350 sety -269 setx -350 sety 260! 
pu 


end 

to CERCLE 7r 

pu fd :r rt 95 gs 
nake "pi 3,141593 | 
local “cote make “cote {pi X:r/18 
repeat 36 [fd :cote rt 101 

pu 1t 95 bk :r pd 


end 

to SECTEUR angle :r 
Apr fd :r pu bk :r pd 
en 





LOGOGRAF :HISTOGRAMME EN TROIS DINENSIONS 
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PROGRAMME LOGO 


ee 


to PROGROS 

SAISIE CAMBERSD ivl :v2 :v3 sud :vS :v6 :v7 :v8 :v9 :v10 : 

er "CANBER3O er (CERÛLE er “ECTÉUR à er "MICERCLE ern ‘pil arl 
Log recycle 

en 


P ù 

nake "pi 3,141533 | 
local “cote make "cote :pi # :r / 18 
ru 36 Cfd !cote rt 19] 

LR 95 bk:r ‘pd 


to SECTEUR angle 1" 
AE angle fd :F pu bk :r pd 


to MICERCLE 
D 5 repeat 18 Cfd (3,141593 # 250 / 18) rt 10] 


Lo CMBERSD : iv :v2 V3 INA VS 1 v6 :v7 :v8 :v9 MAT 
nake 
local "t make "t (: vl +2 + NS + iv + VS + V6 + V7 +! 
1V8 + 1" + :vl 
local ! pro nake “pro (360 / 
fs cs ht setscrunch 0, QUES ÉRRCLE 250 
SECTEUR round :vl # pro 250 
round :v2 à pro 250 
:pro 250 
A7: pro 250 
SECTEUR round :v5 *# :pro 250 
SECTEUR round :v6 à :pro 250 
SECTEUR round :v7 ‘pro 250 
: :pro 259 
SECTEUR round :v9 à pro 250 


19 X pro 250 
seth 90 pu fd 250 seth 180 pd fd 100 
pd MICERCLE seth ; fd 100 bk 190 seth 90 pu fd 2 pd fill pu 
setscrunch 1 / 1 * 0,46875 
pu setpos [- Lie 1501 pd setx 250 setpos [325 -200] setx -325! 
setpos [-250 150] 
pu setpos (-350 260] É setpos [350 260] setpos [350 -260)! 
hs C-350 -260] setpos [-359 260] pu 


to TARTE3D INT V2 48 V4 VS 1 v6 7 :v8 :v9 :v10 a 


" 
local "t make "t Crvl + 502 + V3 + sv4 + VS + 1v6 + :v7 +1 
1V8 + :v9 + :v10) 
ocal ie nake que (360 / :t) 
“al round :vl À 
make "a2 round :v2 à 'pro 
“a3 round :v3 X :pro 
“ad round :v4 X :pro 
“a5 round :v5 À :pro 
"ab round :v6 * pro 
“a7 round :v7 * 'pro 
"a8 round :v8 * :pro 
"ag in :V9 X pro 
"alé round :v10 # :pro 
CMBER al ne tag taf ‘a5 1a6 !a7 :a8 :a9 :a10 


A re tal 1a2 a3 ad :a5 1a6 ‘a7 1a8 a9 'a10 

nake "S (ral / 2) 

pu home suth $ fd 20 ps TRANCHE al 

: hone nake is (1$# (ral / 2) + (1a2 / 2)) seth :S fd 20 pd! 

RANCHE :a2 

FA: ne "S C1$ + C'a2 / 2) + ('a3 / 2)) seth :S fd 20 pd! 
LU à . 

eu hone make "S (:$ + (:a3 / 2) + (rad / 2)) seth :S fd 20 pd! 

RANCHE :ad : 

pi hone nake "$ (:S + (1a4 / 2) + (1a$ / 2)) seth :S fd 20 pd! 

RANCHE :a5 

pi hone make "5 (:S + (ra / 2) + (:a6 / 2)) seth :S fd 20 pd! 


RANCHE :a6 
"S (1S + ('aë / 2) + (ia7 / 2)) seth :S fd 20 pd! 
RANCHE :a7 


y hone nake 
y hone make "S$ (:S + (1a7 / 2) + (:a8 / 2)) seth :S fd 20 pd! 
RANCHE :a8 


(A + "6 C:S + ('a8 / 2) + ('a9 / 2)) seth :S fd 28 pd! 
pu hone make "S C:$ + (:a9 / 2) + (:al0 / 2)) seth :S fd 20! 
pe TRANCHE :al0 


0 TRANCHE angle 
make D! (16 + Ne angle / 2)) Hi "02 (:$ - (sangle / 2))! 
nike pas (3.141893 # 200 / 

«6 = 180 Épu seth :D2 td 20 d seth 180 fd 30 seth (:D2 +! 
. 6) re on ls [td :pas rt |] seth © fd 30 pu] 

AA [ 180 fd 30 seth :D1 fd 209 seth 0 fd 30 seth! 
ë k° 200 it angle td 200 seth 18 fd 30] 
if :S € 184 Cseth (:D2 + 99,5) repeat :angle [fd :pas rt 11) 
if !S ) 180 Cseth 180 fd 30 seth :02 fd 200 seth à fd 30 bk! 
HE eth (:D2 + 90,5) repeat "angle Cfd :pas rt 1] seth 0 fd! 


end 
to CADRE 
Fable (-350 260] pd setx 350 sety -260 setx -350 sety 260! 


to SECTEUR? angle 
d i 200 bk 200 rt sangle fd 200 bk 200 1t rangle fd 200 rt! 


0,5 

local " pas make "pas (3,141593 X 209 / 180) 

rs ‘angle Cfd :pas rt 1] pu hone seth :S fd 100 pd fill! 
pu hone 


end 
to CAMBER2 ‘al 'a2 1a3 rad :aS ‘a6 'a7 'a8 'a9 'al0 
make “5 (ral / 2) 
fs cs ht setscrunch 0,234375 

pu home seth :S fd 20 pd 1t ('al / 2) SECTEUR2 :al 
# hone make "5 (1S + (ral / 2) + (ra2 / 2)) sein :$ fd 20 pd! 

t (1a2 / 2) SECTEUR a 
te hone make "S (:S + az 12) + (1a3 / 2)) seth :S fd 20 pd! 


pu hôe snake "S (1S + Û 13 12) + (rad / 2)) seth :S fd 20 pd! 
t (rad / 2) SECTEUR2 

16 (16 + l u 1 2) + C1a$ / 2)) seth :S fd 20 pd! 
S fd 20 pd! 


pu ne + i 1 12) + (ia7 / 2)) seth :S fd 20 pd! 
th ie make "S 


u hone aake 


‘L ra7 / 2) + (ra8 / 2)) seth :S fd 20 pd! 
t (:a8 / 2) STE: 


u home make "S ( l'a 12) + (1a9 / 2)) seth :5 fd 20 pd! 
t C RL | ? SCTÈUR 139 
pu h s (29 ! 2) + (:a10 / 2)) seth :S fd 20! 
ps 1 te 210 / ) RCTEUR : a 

PAISSEUR ral :a2 :a9 ad HU 1a6 :a7 'a8 :a9 :al0 
setscrunch 1 / 1 * ‘@, 4687 
pu setpos [-250 1501 pd setx 250 setpos (325 -200] setx -325! 
Er C-250 150] 


end 
0 PROGRIO 
SAISIE TARTE30 :v1 :v2 143 :v4 1vS 1v6 :v7 :v8 :v9 :vl0 : 

r "TARTE30 er “CAMBER? er ifcitirs er "ÉPAISSEUR ar! 
*TRANCHE er "CADRE ern [D1 D2 $ pas al a2 a3 a4 a5 a6 a7 a8l! 


a9 a10] 
er SPROGR1O recycle 
end 


RE  — 


to FIN 

ct setcursor [30 11] ci il Ctype CX \ 1] 
setcursor [63 11] pr [ 

setcursor [30 121 spé CX] setcursor [63 12] 
setcursor [30 13] type RE setcursor [38 13] type {Pas de 
ny setcursor (63 131 pr C1] 

setcursor [30 141 type C] setcursor [63 14 
setcursor [30 15] ‘a e C*] setcursor [39 
revoir!] setcursor [63 15] pr [x] 
setcursor [30 161 type C#] setcursor [63 
setcursor (30 171 type CX] setcursor (35 


| 

] 

prochaine fois ] Setcursor [63 17] Ha 1 
\] 


Eos 

Eu [Alors au! 
Por [A une! 

P 


] 
15] 
6] 
7] 
4] 
setcursor [3 181 type [4] get 1 81 
setcursor [30 19] rons 11 [type [à 


setcursor [63 19] pr 
throw "TOPLEVEL 
end 





LOGOGRAF + L'ECHO DU PCW N°11 


ENS CZ RO Ja 


AVEC CP 


Par Marc HERMION 






OMPRENDRE ET DEMARRER 













INITIATION 





Remportant le British Award 86, le PCW fut consacré ordinateur de l'année 
par nos amis d'outre-manche. I! y avait sincèrement de quoi surprendre 
plus d'un observateur car nombre de professionnels restaient convaincus 
que cette sympathique machine à écrire ne valait guère mieux et que 
l'adjonction d'un système d'exploitation, vieux comme le monde, pouvait 
difficilement lui donner grâce à leurs yeux. Mais qu'en est-il? Ce CP/M 
déclassé vaut-il le moindre intérêt et peut-il apporter raisonnablement ce 
plus dont il orne son nom? 

C'est à ces quelques questions que nous allons tenter de répondre en 
profitant de l'occasion pour aborder une initiation à l'usage des débutants 


CPIM 


POUR QUOI FAIRE ? 


Le CP/M est ce que l’on appelle 
communément un système d'exploitation. 
D'autres systèmes existent et dépendent du 
type de machine sur lesquelles ils sévissent 
(MS/DOS, UNIX, PICK...). 


Sans entrer dans des méandres 
technologiques qui n’ont ici aucun intérêt 
majeur, nous pouvons dire que le système 
d'exploitation est un programme qui 
s’installe dans un ordinateur pour en gérer 
les moindres détails et donner aux 
utilisateurs un accès plus aisé aux 
possibilités de la machine. 


Entrons dans les détails. 


Quelle que soit sa taille, un ordinateur est 
incapable de faire quoique ce soit sans que 
l’homme n’y ajoute un programme capable 
de superviser l’ensemble de ces différents 
constituants. 

Cette première réalité est importante et 
mérite d’être retenue dans son ensemble et 
tout ce que nous dirons dès à présent ne 
servira qu’à préciser les tenants et les 
aboutissants de cette gestion. 


Pratiquons pour comprendre... 
Sachant qu'un doigt de pratique vaut 


Figure 1 souvent mieux que trois containers de 
Des — nébuleuses explications attachons nous à 
présentations expérimenter chacun des points qui font 
qui toute l'utilité du CP/M. 


s'expliquent ! 


A est le 
lecteur 
actif 


CP/M Plus Anstrad Consumer Electronics plo 
v 1.4, GX TPA, € disc drives, SI0/Centronics add-on, 368K drive M: Je jecteur virtuel M offre 368 K de capacité 
ON] | 


L'interface 
CPS 8256 


2 lecteurs 
sont présents 
AetB 


Mémoire disponible 
(indépendamment 
de M:) 
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absolus qui pourront ainsi juger de l'opportunité de ses possibilités. 


Nous savons que le CP/M (comme tout 
autre système d'exploitation) est un logiciel. 
Dans le cas du PCW, ce logiciel se trouve 
sur la face 2 de l’une des disquettes système 
livrée par AMSTRAD. 


Comment s’installe CP/M ? 


Allumons le PCW et insérons la disquette 
face 2 vers l'écran. Un ronronnement 
discret nous informe que la présence de la 
disquette à bien été détectée et un affichage 
de lignes horizontales nous confirme que le 
CP/M se charge en mémoire. Le message 
salvateur s'inscrit alors pour nous informer, 
sans équivoque, que CP/M à pris le contrôle 
de la machine et qu'il se tient prêt à subir 
les assauts de nos moindres caprices... 
(figure 1) 

Cette opération menée simplement mérite 
déjà quelques explications utiles à notre 
compréhension. 


Le PCW contient, entre autre, un petit 
circuit constitué de mémoire ineffaçable 
(même sans alimentation, c’est une R.O.M) 
dont la seule mission, dans ce cas là, est 
d’appeler le chargement en mémoire du 
CP/M pour ensuite lui donner toute autorité 
sur notre PCW. 


En toute logique, nous pourrions nous 
demander par quel miracle LOCOSCRIPT 
peut-il se passer d’un système 
d'exploitation ? En fait, il ne le peut et ses 


FE (indépendant des 61 K de la TPA) 


est raccordée 
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concepteurs l’ont subtilement inclus dans 
l’ensemble du programme en se débrouillant 
pour que nous ayons l'impression qu'il 
pouvait s'en passer. 


CP/M en détail, notions 
d’entrée/sortie… 


Revenons à notre écran. Une lettre suivie 
du symbole ‘‘plus grand que‘ et du curseur 
attend impassiblement. Cet ensemble est 
appelé le ‘‘prompt‘‘ ou caractère d'attente 
et sa présence donne déjà un premier 
enseignement. 

La lettre désigne le lecteur actif, ou par 
défaut, en l'occurence celui qui vient de 
servir au chargement du CP/M. Le lecteur 
désigné par la lettre affichée est celui sur 
lequel toute opération d'accès aux 
disquettes se fera si aucune autre précision 
n’est donnée. Notre disquette toujours 
présente dans le lecteur va nous servir de 
champ d'investigation : 


Tapons en toute lettre : DIR et appuyons 
sur la touche [RETURN]. 

Surprise, l'écran affiche l'équivalent de la 
figure 2 et amène un premier constat 
l’ordre DIR (DIRectory ou répertoire) a 
réveillé CP/M qui, répondant avec bravoure 
à notre attente, avoue les noms des fichiers 
se trouvant sur la disquette elle-même 
placée dans le lecteur A. 


Pour vérifier que cela marche à tous les 
coups, nous pouvons refaire cette 
manipulation avec toutes les faces des 
autres disquettes livrées avec le PCW. 


Mais qu'a fait le CP/M dans tout cela ? 


Chargé de la bonne coordination de notre 
machine préférée, voici les missions dont 
s'est chargé CP/M : 


1. Il a affecté à chaque touche que vous 
avez pressée sur le clavier (organe d'entrée) 
la lettre correspondante. 

2. Il a affiché sur l'écran (organe de sortie) 
et plus précisément à l'endroit du curseur 
chacune des lettres frappées. 

3.11 a compris que nous souhaitions 
l'exécution de l’ordre DIR dès que notre 
pression sur [RETURN] le lui a signifié. 

4. I] a vérifié qu'il connaissaît cet ordre et 
qu'il pouvait l’exécuter et il l’a fait. 

5. Il savait que le lecteur par défaut était A 
il a vérifié que le disque était bien présent. 
6. Il a lu son répertoire, l’a chargé dans un 
endroit de sa mémoire et l’a tout 
simplement affiché à l'écran pour nous 
permettre de le connaître. 

7. Il nous à rendu la main aprés s’être 
chargé en notre nom de toutes les 
manipulations propices à l'obtention du 
résultat escompté. 
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Physionomie 
d’un nom } 
de fichier 





Ordres 


DIR 
DIRSYS 


ERASE 
RENAME 


TYPE 


USER 





L'ordre DIR que nous venons d'essayer est 
une fonction fondamentale puisqu'elle 


permet de nous faire connaître le contenu Figure 2 
d’un disque. Nous pourrions difficilement en 
nous en passer et c’est pour cette raison ue 
qu'elle est exécutée par CP/M sans faire face 2 
appel à quelqu'’autre programme que ce TS 
soit. ie 


Point de séparation 


BASIC.COM 
Ce 


NOM EXTENSION (max 3 signes) 
(max. 8 signes) 





FRA : BASIC 
WP : LANGUAGE 


CON : SET 
CON : SETSIO 
BAS : RPED 


Pour nous en apercevoir, il a suffi que nous 
changions de disquette pour vérifier que 
DIR affichait toujours le contenu de 
chacune. Plusieurs ordres sont ainsi inclus 
dans le CP/M et servent principalement à 
des opérations élémentaires sur les 
disquettes. Nous les appellerons les ordres 
résidents car ils sont toujours disponibles. 


ORDRES RESIDENTS 


fonctions 
Affichage du répertoire d'une disquette. 
Affichage du répertoire 
des fichiers systèmes 
Effacement d’un fichier sur la disquette 
Modification du nom d’un fichier 
sur la disquette 
Affichage du contenu d’un fichier (ASCII) 
se trouvant sur une disquette. 
Choix d’une zone utilisateur sur la disquette. 


Abrégé 
DIRS 


ERA 
REN 


Trois de ces six fonctions résidentes sont 
indispensables : ERASE, RENAME et DIR. 
Les trois autres n’ont, au stade de notre 
initiation, aucun intérêt majeur. 


CP/M et disquettes. 


Quelque soit l’utilisation que nous en 
faisons les disquettes font toujours l’objet 
d’une opération de formatage avant d’être 
consommables par le lecteur du PCW. Cette 
opération dont se charge le programme 
DISCKIT 2 pour but d'inscrire sur un 
disque totalement vierge un certain nombre 
de repères indispensables au système 
d'exploitation pour qu’il puisse s’y 
retrouver. 
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AVANT FORMATAGE 


APRES FORMATAGE Es 
> 
ES 


Cette opération est commune à tous les 
lecteurs de disquettes de tous les 
ordinateurs et son originalité dépend des 
caractéristiques physiques de chaque lecteur 
pour une exploitation maximum par le 
système. 


L'exemple le plus flagrant est celui des 
lecteurs A et B de notre PCW. Utilisant des 
disques strictement identiques (oui CF2 et 
CF2DD sont identiques seuls leurs prix 
changent et personne n’est encore capable 
de prouver pourquoi !), les deux lecteurs 
n’ont pourtant pas les mêmes performances. 
Le premier est en simple densité sur un face 
alors que le second est en double densité 
sur les deux faces. Pour résumer, A lit (ou 
écrit) une information sur une surface 
donnée alors que B en lit (ou écrit) deux 
sur la même par conséquent le lecteur B 
permet de 
mettre deux fois 
plus 
d'informations 
sur un même 
disque. 


POURQUOI FORMATER 


LE CP/M EST PERDU... 


L'autre 
distinction 
majeure réside 
dans le nombre 
de tête-de 
lecture .de 
chaque lecteur. 
Le lecteur A 
n’en n'ayant 
qu'une, nous 
devons 
retourner la 
disquette pour 
accéder à l’autre 
face et chaque 
face se formate 
séparément. Le 
lecteur B en possède deux qui se passent le 
relais pour lire les deux faces sans que nous 
ayons à retourner la disquette. Dans ce cas, 
le formatage des deux faces se fait en une 
seule opération et nous pouvons considérer 
que c’est exactement comme si nous n’en 
avions qu’une. 


LECTEUR A 


IL S'Y RETROUVE! 


LES BLOCS SONT 
COMME DES TIROIRS 


LA DISQUETTE EST 
UNE GRANDE ARMOIRE ! 


LE TIROIR QUI CONMAIT 
TOUS LES AUTRES C'EST 
LE DIRECTORY 





173 Ko PAR FACE 
346 AU TOTAL 
LECTEUR B 706 Ko au total 


Le rapport est donc respecté, B offre appro- 
ximativement deux fois plus de capacité que 
A en partant d’une même disquette. 


Cette situation nous prouve que des lecteurs 
physiquement distincts ont des possibilités 
de stockage différentes et ce, en partant 
d’une même disquette. C’est donc DISCKIT 
qui se charge de formater cette disquette en 
fonction du format de chaque lecteur. 
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Ce formatage fait, CP/M peut enfin disposer 
des disquettes. Pour imager, nous dirons 
que la disquette est devenue une énorme 
armoire aux multiples tiroirs dans lesquels 
CP/M peut ranger (écrire, sauver, 
sauvegarder) ou récupérer (lire, charger) des 
informations de tout ordre. 


Bien entendu, les tiroirs sont de tailles 
prédéfinies par le formatage qui indique où 
il commence et où il finit et qui le remplit 
d’une valeur neutre pour que CP/M ,; 
retrouve les repères qu'il connaît. De plus, 
la taille des fichiers étant variable, ces 
derniers peuvent occuper un ou plusieurs 
tiroirs sur la disquette et c’est justement 
tout le travail de CP/M de se débrouiller 
avec ce genre de problème afin de nous en 
libérer. 


DISQUETTE MEMOIRE 


Le PCW offre la particularité très 
intéressante d’avoir suffisamment de 
mémoire pour ajouter un lecteur 
supplémentaire qui fonctionne sans aucune 
disquette. Le Constructeur a donc remplacé 
le support de mémorisation physique de la 
galette magnétique par des circuits 
électriques. Pour simplifier le repérage, ce 
lecteur a été appelé M comme Mémoire. Il 
fonctionne comme ses deux compères A et 
B mais garde des particularités qui le 
distinguent tout de même. La première est 
avantageuse car la mémoire n’entraînant 
aucun mouvement mécanique d’un disque 
et d’une tête de lecture, l’accès aux 
informations est extrêmement rapide. La 
deuxième est conséquente de la première en 
cela qu’une fois hors tension, cette mémoire 
oublie tout en perdant les informations 
qu'elle contient. Elle n’est donc pas aussi 
fiable que la disquette sur laquelle les 
informations restent. 


ESSAYONS LE LECTEUR VIRTUEL M 


Connaissant l’existance du lecteur virtuel 
(virtuel parce qu’il n’existe pas vraiment 
mais en est une simulation à l’aide de la 
mémoire) il peut nous servir à jouer du 
lecteur pour voir comment CP/M se 
débrouille. 
Toujours avec notre prompt A) à l'écran, 
donnons l’ordre à CP/M d’affecter M 
comme lecteur actif en tapant : 

M: [RETURN]. CP/M comprend l’ordre et 
affiche le nouveau prompt M). 

Tapons DIR [RETURN] pour connaître le 
contenu de M. La réponse saute aux yeux : 
‘no file‘* ou en français ‘‘rien en mémoire‘: 
nous rappelle que M est vide puisque nous 
venons d’allumer la machine (M est toujours 
vide quand on allume la machine, seul 
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Locoscript y met automatiquement 2 
fichiers pour le meubler un peu !). 

Si notre disquette CP/M est toujours en À, 
nous pouvons en connaître le contenu sans 
quitter M par DIR A: [RETURN]. 

Dans ce cas, les deux points servent à 
distinguer le lecteur d’un fichier qui 
pourrait s'appeler A car DIR A signifierait : 
le fichier A est-il sur le disque actif, alors 
que DIR A: signifie que nous voulons tous 
les fichiers présents, sur la disquette placée en 
lecteur A et ce, quelque soit le lecteur actif. 


CP/M et programmes... 


Connaissant l'organisation du support (la 
disquette) voyons ce qu'elle contient et à 
quoi cela peut nous servir. 


La figure 2 déjà vue nous donnait le 
contenu de la face 2. Chaque fichier qui la 
compose est représenté par un nom qui suit 
des règles bien précises : 


Le nom est composé d’un maximum de 8 
signes et il est généralement suivi d'une 
extension d’un maximum de trois signes. 
Ces signes peuvent être des lettres, des 
chiffres et certains symboles comme : 8, #, 
-, _, (,), &, %, ‘, +, , ! et ”. Les autres 
symboles n'étant pas admis par CP/M. 


Le nom d'un fichier est généralement en 
rapport avec l’objet de son existence et CP/M 
n'én tient jamais compte (à l'exception de 
SUBMIT.COM et PROFILE.SUB dont la 
vocation est très particulière). 


L'extension, quant à elle joue, un rôle 
majeur. Comme nous le constatons sur la 
figure 2, de nombreux fichiers ont 
l'extension COM qui indique au CP/M qu'ils 
sont des programmes utilisables directement. 


Pour le vérifier, utilisons le programme 
SHOW.COM de la disquette système. Ce 
programme sert à indiquer la place restante 
sur une disquette située en A ou en B. 

De retour à notre clavier, le caractère M) 
attend toujours nos ordres. Revenons sur le 
lecteur actif A par A: [RETURN] puis 
tapons SHOW A: [RETURN] et regardons 
ce qui ce passe. Quelques secondes 
suffisent et le résultat s’affiche à l’écran : Il 
ne reste que 2 Ko de libre sur la disquette. 


Comme nous l'avons fait plus haut, voyons 
le détail de ce qu'a fait CP/M dans notre 
manipulation. 


1. Il a affiché SHOW à l'écran et la touche 
[RETURN] lui a donné l’ordre de l’exécuter. 
2. Il a passé en revue sa petite bibliothèque 
d'ordres résidents (les 6 que nous avons vus 
plus haut) pour vérifier si SHOW n'en 
faisait pas partie. 
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3. Constatant que non, il a été vérifier sur 
le répertoire de la disquette si un fichier 
SHOW pouvait être un programme 
directement exécutable. 

4. L'extension COM étant bien présente, il a 
constaté que oui, il l’a chargé en mémoire 
et exécuté. 

5. Le programme SHOW 2 rendu son office 
et demandé à CP/M d'afficher le résultat de 
son travail pour nous rendre enfin la main. 


ON VEUT UNDER De COR COMMENT CP/M CHARGE UN PROGRAMME 


2-CP/M LE CHERCHE DANS LE DIRECTORY 3-PIP EST BIEN SUR 
PIP A DISQUETTE 


4-CP/M VA CHERCHER PIP.COM 


— SUN 
IN S-ET L'ENVOIE DANS LA MEMOIRE 





Suivant le même principe de nombreux 
programmes fonctionnent sous CP/M (on 
dit qu'ils tournent sous CP/M) et nombre de 
ceux livrés sur les disquettes système sont 
destinés à nous aider dans l’adaptation des 
périphériques à des besoins précis ou à nous 
informer sur leur état. 


Maintenant, retournons sur M par M: 
[RETURN] et tapons SHOW A: 
[RETURN]... Le résultat n'est pas brillant : 
le système nous répond SHOW? sans même 
l'exécuter. Mais pourquoi tant d’injustice ? 
Tout simplement parce que conformément à 
ce que nous venons d'étudier, CP/M ne 
connaît pas SHOW.COM donc il va le 
chercher sur le lecteur actif et ne le trouvant 
pas, il s’avoue vaincu en ajoutant le point 
d'interrogation en signe d’impuissance. 
Pourtant SHOW.COM est sur A et nous 
aimerions bien connaître la capacité de M: 
sans avoir à revenir sur À. Comment 
l'indiquer à CP/M ? 

La solution consiste à lui dire au préalable 
où aller chercher SHOW.COM en tapant : 
A:SHOW [RETURN] pour qu'il donne la 
taille restante du lecteur M qui est actif. 
Tapons A:SHOW A: [RETURN] et il nous 
redonne ce que nous avions déjà obtenu 
plus haut. 

En conséquence de quoi nous déduisons 
simplement que CP/M ne connaît que le 
lecteur actif si aucune mention d’un autre 
lecteur ne lui est donné et cette information 
concerne : 

Le lecteur où aller chercher le programme 
(devant) 

Le lecteur concerné par l'opération 
(derrière) 


Alors vous en convenez, CP/M n'est pas un 
monstre inabordable, mieux, c’est un allié 
de poids dont nous tirerons encore bien 
plus mais une prochaine fois... A bientôt M 
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Figure 1 


Affichage 

du message 
et choix de 
suppression 


COMMUNICATION 


L'EVASION TELEMATIQUE 


Par Germain DELALANDE 


SQ'U'ITNMLE SERVEUR MINITEL 


MIEUX GERER LES BOITES AUX LETTRES AVEC BALSUP 


Avec la collaboration de 
SYNATEL, nous proposons 
aux adeptes de la télématique 
côté serveur, un utilitaire 
permettant de passer 

en revue les messages de 
toutes les boîtes aux 
lettres et de supprimer les 
messages devenus caduques. La capacité 
d'une disquette n'étant pas illimitée, il est 
conseillé de faire régulièrement du message 
dans sa ménagerie, ou plutôt du ménage 
dans sa messigerie. 


BALSUP, 
L'ASPIRATEUR HORS CLASSE 


Lancer le programme à partir du CP/M par : 
A) BASIC BALSUP [RETURN] 


Le programme passe en revue tout le fichier 
des messages contenus dans les boîtes aux 
lettres (BAL.DON auquel est associé le 
fichier index BAL.IND) ; à chaque message, 
le nom de la boîte, son mot de passe et le 
contenu du message sont affichés à l’écran. 


N'ENVOYER UNE DOCUMENTATION 


RELIEUSE ST6800 


} : 
! Quitter en supprinant les messages cochés, 

& ; er le nessage 

: Suppriner le nessage 


Votre choix : 


Ai sans suppriner de message, 





Pour chaque message, quatre options sont 
disponibles : 

[G], pour garder le message et passer à 
l'affichage du message suivant. 

[S], pour supprimer le message (ou plus 
exactement, pour ‘‘marquer‘‘ le message qui 
sera effectivement supprimé à la fin du 
traitement). 

[Q]. pour terminer le programme en 
supprimant les messages marqués en 
suppression. 

[F], pour terminer le programme sans 
supprimer aucun message. 
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TOUT NIVEAU 








Il est possible de passer en revue tout le 
fichier BAL.DON sans se servir des choix Q 
et F, les messages marqués seront alors 
supprimés. 


SI L’ON SOULEVE LE CAPOT 


Côté technique, le programme BALSUP 
n'est guère plus compliqué que son 
principe. Il est écrit en BASIC Mallard et 
sa programmation correspond à 
l’ordinogramme suivant : 


STRUCTURE DU FICHIER INDEXE BAL.DON 


Chaque enregistrement comporte 5 zones 

(champs) : 

- le numéro de la boîte (2 octets) 

- le nom de la boîte (10 caractères) 

- le mot de passe (10 caractères) 

- la première partie du message (200 
caractères) 

- la deuxième partie du message (200 
caractères) 


Le fichier est indexé avec deux types de 
clés : 

- la référence (rang 0) 

- le nom de la boîte (rang 1) 


Ce qui permet de faire des recherches 
rapides des 
messages déposés 
dans une boîte, 
connaissant son 
numéro ou 

son nom. M 








DEBUT 


OUVRIR FICHIER BAL.DON 


Lire 1e" enregistrement 
è Te OUI 
Fin de Fichier ? 


NON 


Afficher le message et 


les différents choix 
permis à l'écran 










Mémoriser les références 
de l'enregistrement 
à supprimer 


Lire enregistrement suivant 






SUPPRIMER 
TOUS LES MESSAGES 
MARQUES EN SUPPRESSION 


Fermer le fichier BAL.DON 
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COMMUNICATION 


10 RARE OONOOONEEX 

20 "BALSUP'Supression sélective des nessages 

30 ‘ des boites aux lettres 

A0 KÉFEEKEER EE RER EEE EEE EEE EEE EEREK 

50 ‘ 

60 MEMORY ,,,424:BUFFERS 10 

70 DIM kref$(500) ,knon$(500) ,knun#(500) 

80 cls$=CHR$(27)+"E"+CHR$(27)+"H"  nb4=0 

90 : 

100 OPEN "K",1,"bal don" "bal ind",2 

110 FIELD 1,2 AS bref$,10 AS bnon$,10 AS bmdp$,200 AS basgl$,2 
00 AS bnsg2$ 

120 : 

130 res%=SEEKRANK(T,0,0):' positionner sur le ler message 

140 : 

150 IF res#()0 AND res%{)101 THEN GOTO 400:'I1 n'y a plus de n 
essage à traiter 

160 GET l'nunX=FETCHREC(1) 

170 PRINT cls$ 


210 FOR i4=l 
220 FOR i$=1 
230 PRINT " 


A:PRINT NIDS(basg1$, Ci-1)#4041 40):NEXT it 
A!PRINT MIDSCbasg2$, (it-1)K4041,40):NEXT it 


240 PRINT:PRINT:PRINT PRINT 

250 PRINT "F : Finir sans supprimer de message" 

260 PRINT "Q : Quitter en supprimant les messages cochés " 
270 PRINT "6 : Garder le message" 

280 PRINT "S : Supprimer le nessage" 

290 : 

300 PRINT:PRINT "Votre choix : "; 

310 g$=INKEYS:IF g$="" THEN G0TO 310 

320 g$=UPPERS (g$) 

330 IF g$="F" THEN GOTO 500 

340 IF g$="Q" THEN GOTO 400 

350 IF g$="S" THEN nb#=nb4+l 'kref#(nbt)=bref$ :knom$(nb4)=bnon$ 
‘knun$(nb%)=nuatG0TO 380 

360 IF g$<>"6" THEN GOTO 310 

370 

380 res#=SEEKNEUT(1,0):6070 150: message suivant 

390 : 

400 ARRETE 

410 '  SUPRIMER LES MESSAGES 

420 HRK 

430 IF nb%=0 THEN 60T0 500''pas de message à supprimer 
440 PRINT cis$:PRINT "Supression en cours, patientons, , ,": 
450 FOR i%=1 TO nb4 

460 rest=DELKEY(1,0,0 kref$(it) ,knunt(it)):rest=DELKEV(1,0,1,k 
non$(i) knunt(i#)) 

470 NEXT i4 

480 rest=CONSOLIDATE(1) 

490 : 

500 CLOSE 1 

510 PRINT cls$ 

520 END 
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MYNEA L'EMULATEUR MINITEL 
PCW/MINITEL/ANNUAIRE 


ELECTRONIQUE : LE MAILING SUR 
PARIS, LYON, MARSEILLE 
DEVIENT UN JEU D’ENFANT. 


EXTRAIT DU LIVRE DES RECORDS 1988 : 


‘‘1 heure 34 minutes (*) pour saisir et 
imprimer sur étiquettes 500 adresses‘, 
record établi le 4 Aout 1987 à la 
rédaction de L’'ECHO DU PCW par un 


ordinateur de marque Amstrad PCW 8512. 


(*) dont 3 minutes de travail effectif. 


si PS SEE 7 
1 duljen Jpn-hel me 2 43 61 59 69 
ê Le he price Me (1) 45 99 21 4 
3 Xaoun-Abdelhedi (1) 46 22 28 82 
1-AbdelaaJid 
1 r larbe 17e 


41 h 
“es rosiers de 


S Xor (SARL) (1) 42 46 83 33 
Dr Em LA %e 


6 La Fouasseri 
158 r Mareadet 1 


(1) 42 77 39 47 


(1) 42 52 56 05 
8e 


page suivante + SUITE 


PAGE: 13 / CI 





L'objet du mailing 
est de proposer 
un four à pain 
révolutionnaire 
(50% d'économies 
d'énergie) aux 
boulangers de 
France et de 
Navarre. Pour 
établir le record, 
nous restreindrons 
notre recherche à 
PARIS : 6 adresses 
par page minitel, 
480 adresses 

à constituer 

> 80 pages à 
mémoriser. 


LA PHASE 


D'ENTRAINEMENT : Pour battre un 
record, il est bien sûr nécessaire de 
s'entraîner et de bien préparer son affaire 
afin d'éviter toute perte de temps. Après 
avoir bien lu et relu le manuel de MYNEA, 
j'insère la disquette MYNEA dans le lecteur 
A et une disquette dans le lecteur B, sur 
laquelle je transfère le fichier BASIC.COM 
(disponible sur la disquette AMSTRAD 
CP/M +) et le fichier MAILING.BAS 
(disponible sur la disquette MYNEA). 


Un fichier de commandes automatiques 
COM.1 2 été créé sous Locoscript et 
sauvegardé en ASCII sur la disquette B ; il 
contient 80 fois les 2 instructions 


successives : 


L$MEMO pour mémoriser la page en cours 
$SUIT$ pour actionner la touche SUITE 
du minitel et attendre la page 


suivante ($) 


L’ETABLISSEMENT DU RECORD 


Je ‘lance le logiciel d’émulation du minitel 
par : A) MYNEA [RETURN] 
La course contre le chronomètre peut 
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commencer. Le départ a lieu à 18H00 
précises, pour ne pas être handicapé par les 
embouteillages sur le 11 et pour payer 
moins cher de communication ! !! 


18H00 : L’huissier donne le feu vert. Je 
décroche le téléphone, pianote le 11 (J'ai. 
loué un téléphone à touches pour gagner du 
temps). La porteuse est déjà là qui n'attend 
plus que la pression sur la touche EXIT 
pour démarrer la connexion. La première 
page de l’annuaire électronique apparaît ; 
SUITE pour positionner sur la zone 
rubrique, BOULANGERIE, [SUITE] deux 
fois, 75 et ENVOI. La première page 
d'adresses s'affiche ; par pression sur la 
touche [f7] et indication du numéro de 
commande 1, le fichier COM.1 est exécuté 
et déclenche la procédure automatique de 
consultation et de mémorisation des 80 
pages d'adresses. 

Mode automatique ; c’est beau un PCW au 
travail... 


18H13 : Toutes les pages sont mémorisées 
sur le lecteur M. Déconnexion. Appui sur la 
touche [CAN] (option Annuaire Electronique 
de MYNEA) pour extraire les adresses des 
pages minitel. Indication du fichier 
B:BOULANGE.ADR destiné à mémoriser 
les adresses extraites. Pas d'impression 
immédiate sur étiquette (les codes postaux 
complets n'étant pas intégrés à ce stade 
d'extraction). Traitement de toutes les pages 
mémorisées. 

Mode automatique : c'est extra un PCW qui 
se décarcasse. 


18H31 : Il me redonne la main, en plein 
milieu de mon rêve. Faudrait qu' AMSTRAD 
pense à le brider quelque peu. Sortie de 
MYNEA par [CUT] (retour CP/M). Passage 
sur le lecteur B. 

A) B: [RETURN] 

B) BASIC MAILING [RETURN] 

Le programme basic MAILING (celui fourni 
avec MYNEA) prend le relais de MYNEA 
pour assurer la fin du travail. OPTION 1 
pour mettre à jour le fichier d'adresses 
ADRESSE.DON. Nom du fichier extrait par 
MYNEA : BOULANGE.ADR, profession 
commune aux adresses : BOULANGER, 
mode de traitement des codes postaux : 
choix 3 (Le code postal est indiqué dans la 
désignation de la rue). Et mon poulain de se 
remettre au galop pour analyser chaque 
adresse, rechercher l’arrondissement et 
l'intégrer au code postal. Mode 
automatique : vous me proposez deux 
ordinateurs en échange de mon PCW. Non 
je garde mon poulain et avec la différence, 
je m'offre une chaise longue ! 


COMMUNICATION 


# Boulangerie Y 18H44 : Fin de traitement des codes 
Patisserie du Grand postaux. L’imprimante n’a qu’à bien se tenir 

w nee V_ parce que 480 adresses consécutives en 
78001 PARIS double frappe, ça décoiffe. Option 4, trois 

VU + fois [RETURN] (pas de critère de sélection, 


on imprime tout). Appui sur [CAN]. Un 

crépitement familier se fait entendre. La 
Le première adresse sort et crie ‘‘J'ai faim: ; 
Forum des Halles 1 r Pierre ‘‘Attends-un peu, lui dis-je, si tu me fais 
re vendre un four, je t'offre ton poids en 

pain‘‘. Excusez cette digression, je parlais à 
ma première étiquette. 10 adresses 
imprimées par minute. Je règle mon réveil 
Duloube Jean-Louis et me replonge dans ma chaise longue pour 

10 r Marche St Honore le 48 minutes. 


75001 PARIS 19H34 : Record battu. L’huissier qui n'en 
est pas encore revenu, me tapote l'épaule. 
Je retire mes boules quiès. Le listing 
d'étiquettes est encore tout chaud. 


fonte 


me met oE ] 


Boulangerie 2000 46 gageuet 1e D'Un, 


Boulangerie À la Vierge ui ; BOULANGER 
villiers 3e 
1sbds Fait 42 72 66 43 


Feret Maurice 
168 r St Honore ]le 


75001 PARIS 


Foucher Christian 
80 r St Denis Île 


75001 PARIS 


Joulanserie Bopain  ,]9, paÿgte 13e R', 


La Toque Vendome 


259 r St Honore le BOULANGER 


ns pahgrcion Se 48 28 45 9 


Boulangerie Desvard et Cie SE à BOULANGER 
enees e 
164 PU 47 97 03 62 


Boulangerie Brancion 


75001 PARIS 


Barais Jean 
217 r St Denis 2e OI NT 
… Inpriner Liste 





75002 PARIS 


Quelqu'un pour m'aider à coller les 
Béuisnseile din étiquettes sur les enveloppes ? 
Fontaine Gaillon 

15 r Gaillon 2e Et en plus, il n’y a pas que PARIS dont le 
75002 PARIS code postal est associé aux arrondissements. 
Les boulangers de LYON et de MARSEILLE 
vont avoir de mes nouvelles. 


Boulangerie Saint Questions pour voir si vous avez bien suivi : 

em PR - Combien de temps faut-il pour saisir 
manuellement 480 adresses ? 

75002 PARIS - Sachant que les adresses sont mémorisées 

sur disquette, combien de temps faudra t-il 

la prochaine fois pour imprimer les 480 


adresses ? 
Bouloux Georges x 
176 r St Denis 2e - Quel est l’âge du boulanger ? 
75002 PARIS Ecrivez-moi vos réponses sur tartine et 


beurrez là à l’adresse habituelle ! M 
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NE MANQUEZ PAS L'AVENTURE TELEMATIQUE.. 


LES EDITIONS NEPTUNE et L’ECHO DU PCW vous proposent... 


L'UNIVERS TELEMATIQUE 


L'ouvrage de référence en matière de communication 










250 F (port et emballage inclus*) 440 Pages au service de la télématique 


Le livre de l'été ! 











Au sommaire : 


Les entrées/sorties (principe) 

Les entrées/sorties de l'ordinateur 

Les entrées/sorties pour aller plus loin 
Le modem 

La codification des données 

La technique des réseaux 

Les réseaux locaux 

Transpac 

Le télétex 

Le développement des réseaux locaux 
La notion de serveur 

L'architecture logicielle d’un serveur 
Serveur à diffusion restreinte 

Le minitel 

L'utilisation du minitel 

Le langage protocole 

Identification d’un minitel 

Tous les modèles de minitels 

La micromatique 
































Tous les accessoires du minitel Bibliographie 

Les machines dédiées Tableaux récapitulatifs 

Lexique Cables, logiciels et supports 

Les adresses utiles L'homologation des modems en France 






Cet ouvrage exceptionnel est disponible dès aujourd'hui en retournant à LOGI'STICK 
éditions le bon de commande ci-dessous (ou une copie). 


=D —— ER PE NES 


Veuillez me faire parvenir dès réception de ma commande, l'ouvrage de référence 
!’L'EVASION TELEMATIQUE"' au prix net de 250 F TTC 


PRENOM : 












à MME/MELLE/MR() : 





demeurant à : 






code postal : 





VILLE : PAYS : 


Ci-joint mon règlement de 250 F net par unité. Signature obligatoire : 
(* Etranger et DOM TOM : ajoutez 20 F pour participation au frais de port) 


par [1 CHEQUE CCP MANDAT 


(1) Rayez la mention inutile 





































Les disquettes thématiques de l’'Echo reprennent tous les 
programmes depuis le numéro 1. Bénéficiant des dernières 
améliorations chaque disquette est livrée avec son manuel. 





GESCALC GESTION DE POKER FOLIES 
INVESTISSEMENT STOCK AGENDA 
PATRIMOINE ATHEMYS MUSIC MACHINE 
BUSINESS SUPER GRAPHE MATHELEM 
PERT EVALUATION LOTO 

DEMO : AZERTY T.A.O. OTHELLO 


DEMO : TASWORD DEMO : AZERTY 





qe ETIQUETTES DBASE AUTO- GSX.BAS 
DBASEMUTRANES MULTIPLAN.KEY ae PROGRAMMATION GRAPHISME 1 GSXDAO 





él STANDARD KEY GAG ET SETKEYS T.A.O. 
DBASE.KEY PRINTER MAKER LES PLUS D'EXBASIC 
PROGI, CMD, PROG, MONITEUR DE DISC SUPER GRAPHE 
CMD MATRIX DEMO : GRAPHIC 
MENU.CMD LOCASC2 MAGIC 





TABLEAUX ASCII 
DEMO : GRAPHIC 
MAGIC 


DEMO : AZERTY 


Disponible chez votre revendeur habituel, vous pouvez aussi vous les procurer par correspondance 
à LOGI'STICK CAPN Le Bonaparte - Boîte 49 - 93153 LE BLANC MESNIL Cédex 


Mme Melle M. - Nom : Prénom: 








Adresse : Code Postal : 
Commande par la présente les références suivantes : ne = Il | le si 
au prix unitaire de 100*F TTC ou de 500*F pour les six références 

réglé par L] CHEQUE LE] MANDAT [] ccP Signature : 


(*) : FRANCE FRANCO DE PORT ET D'EMBALLAGE 
ETRANGER OÙ DOM TOM AJOUTER 7 F PAR DISQUETTE 


4011-72 4010) AU) 


Notez chacun des articles que vous avez lu et retournez ce questionnaire à 


L'ECHO. Chaque mois, l’auteur dont l’article à obtenu la meilleure moyenne 
se verra attribuer une prime de 1000 F et le lecteur tiré au sort recevra un 
magnifique cadeau-surprise. 























































































































ARTICLE PAGE © PASLU OTRESMAIVAS MAUVAS MOYEN BON TRSBON NOTES 
LES CONFIDENCES DE LOCOSCRIPT 4 [ O Eu 
INITIATION À DBASE (9) 6 re: 
LOGOGRAF 10 CO ... 120 
INITIATION A CP/M 18 CO ÉD ea 
L'EVASION TELEMATIQUE 23 i 
MONITEUR DE DISQUE 31 … ro NOTEZ BIEN 
STICKER MAKER 38 O . 20 NOTEZ MAL 
TURBO EXPERT BASE PCW 41 CO 100 MAIS 
TABLEAUTAGE ASSISTE 44 HE .… /20 
LOTO 50 0 .. /20 VOTEZ 


Nom : Prénom : 





Adresse : 2" ___ Code postal : 





Profession : Age : 
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ARRETER LE 
TAPAGE NOCTURNE 


Reposez-vous, offrez à votre PCW les 
disquettes de l’Echo du PCW. Saisis 
avec amour et testés avec passion, les 

programmes qui les somposent sont 
ceux du numéro correspondant... 
Alors contre l’usure prématurée du 
clavier... une seule solution : 
Commandez-les ! 


ATTENTION DESORDRE... 


Le numéro d'Avril est introuvable ? Celui de 

Juin froissé ? Comment pouvez-vous supportez cela ? 
Vous ne pouvez plus, alors d'Echo vous le dit... C’est la reliure qu'il vous 
faut ! Prévue pour classer une année complète soit onze numéros, elle 
garantie la longévité de votre collection et vous fera gagnez un précieux 
temps en recherche et en classement... 


LE CHAINON MANQUANT... 


L'Echo du PCW est le mensuel des PCWistes et depuis son premier numéro 
de nombreux sujets essentiels ont été abordés. L'information qui vous 
manque est probablement dans l’un d’entre eux. Alors ne cherchez plus 
vainement et complétez, sans attendre votre collection avec les sommaires 
des anciens numéros (N°1, 2, 3 et G sont au bord de l'épuisement...) 








RELIURE 









Prénom : 
Adresse : 
Ville : Code Postal 

Commande par la présente : 
ABONNEMENTS D'UNE ANNEE À COMPTER DU NUMERO 12 (11 numéros) SOIT …… x 290 (France) dr F 
ABONNEMENTS D'UNE ANNEE À COMPTER DU NUMERO 12 (11 numéros) SOIT …… x 450 (Etranger et Dom-Tom) = ........ F 
DISQUETTES ECHO N° [4] (] [el Le] Go] 1] SOIT …… x 80 (France) et F 
DISQUETTES ECHO N° [1] [2] [s] (s] (] SOIT …… x 95 (Etranger et Dom-Tom) = ........ F 
ABONNEMENTS DISQUETTES* À COMPTER DU NUMERO 12 (11 numéros) SOIT …… x 690 [France] nes F 
ABONNEMENTS DISQUETTES* A COMPTER DU NUMERO 11 (11 numéros) SOIT …… x 900 (Etranger et Dom-Tom) = ........F 
ANCIENS NUMEROS : [] (] (] [el Le] SOIT …… x 30 (France) RNA F 
ANCIENS NUMEROS : Ka] G] [el Ce] SOIT …… x 40 (Etranger et Dom-Tom) = ........ F 
RELIURE ECHO DU PCW POUR 11 numéros SOIT …. x 80 (France) rer LE 
RELIURE ECHO DU PCW POUR 11 numéros SOL X 95 (Etranger et Dom-Tom) = ........ F 


(Entourez les numéros choisis) 
Soit un total de 


TOUS CES PRIX SONT [] CHEQUE* LL] MANDAT* [] ccp* SIGNATURE 
NETS ET INCLUENT LE 
PORT ET L'EMBALLAGE 


A RETOURNER A L'ECHO 
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* Libellez vos règlements à l’ordre de LOGI'STICK Edition (obligatoire) 






DDÉS SD 


< 
À SPECIAL 
LIGHT PEN 


N BCOMMENT CHOISIR 
SA COMPTA {|} 


















SPECIAL 
ECRAN 


SPECIAL 
IMPRIMANTE 






































BBASIC: AUTOPRO- M BASIC : 


GRAMMATION - DISQUETTE COMPATIBILITE CPC/PCW 
M LES CONFIDENCES DE DE TRAVAIL MOBASEI : INITIATION (1) 
LOCOSCRIPT I COMMENT CHOISIR SA I COMMENT CHOISIR SA 
M BASIC : GSX - UN DEPART COMPTABILITÉ {11} COMPTABILITÉ {111} 
SAISISSANT LES CONFIDENCES DE LOCOSCRIPT LES CONFIDENCES DE LOCOSCRIPT 


M LANGAGE MACHINE INITIATION (11) 
M DOSSIER : L'ECRAN 
M PROGRAMME : INVESTISSEMENT - AGENDA 
BESSAIS : LA SOURIS - TOMAHAWXK - ROTATE 
ë EXBASIC ET LES LIVRES DE MULTIPLAN 


Tous les programmes du numéro 3 
sont sur la disquette 3 


: SPECIAL 
PLUS 


BB PROGRAMME : POKER FOLIES 
M REPORTAGE: AMSTRAD SHOW 
MESSAIS : LIGHT PEN - 3D CLOCK CHESS 
BIORYTHMES - LIVRE JETSAM - AZERTY 


= 
: £ Tous les programmes du numéro 1 sont sur la disquette 
î A1 + Une démonstration gratuite d'AZERTY 


N® 


M LANGAGE MACHINE INITIATION (1) 
M DOSSIER : L'IMPRIMANTE 
M PROGRAMME: PRINTER MAKER - EVALUATION 
M ESSAIS : MULTIPLAN - LE GRAND LIVRE DU PCW 
cs PROGRAMMATION SUR PCW 


= Tous les programmes du numéro 2 sont sur la dis- 
es quette 2 + Une démonstration gratuite d'AZERTY 


S ré 
#7 Là 
KS SPECIAL 2 















va 


2 







SPECIAL 









DBASE 
























& M BASE : INITIATION {Il} M DBASEI : © MESSAI : SPOOL 
LES LIVRES DE DBASE INITIATION {111} M DBASE Il : LES PLUS 
LES TRUCS DE DBASE M CP/M : SETLST INITIATION (IV) 
M DES CADEAUX POUR PCW M TELEMATIQUE : L'EMULATION BCP/M: LES PLUS - DELUGE 
M TRANSFORMER UN PCW MINITEL ASCII (1) 
EN SERVEUR MINITEL LES CONFIDENCES DE LOCOSCRIPT M LOCOSCRIPT: LES CONFIDENCES 


M PROGRAMME : MUSIC MACHINE 
BUSINESS 
M ESSAI : COMPAGNON - MX550 - STRIKE FORCE 
HARRIER - PCW10 


É Tous les programmes du numéro 6 
= sont sur la disquette 6 


V 
SPECIAL 
COMPTA 
M ESSAI : MAILING 
M DBASEI : LES LIVRES 
INITIATION (V) 


/ M COMMENT CHOISIR SA 
COMPTABILITE (IV) M ANCIENS SOMMAIRES 
M L'EVASION TELEMATIQUE THEMATIQUES 
M DELUGE ASCII (Il) M L'EVASION TELEMATIQUE 
ILES CONFIDENCES "DE LOCOSCRIPT M LES CONFIDENCES DE LOCOSCRIPT 
ALES BONS PLANS DE MULTIPLAN M DELUGE ASCII (II) : MULTIPLAN 
M PROGRAMMES : GESCALC 


M PROGRAMMES : PRINTER MAKER 3 - UNE COMPTA 

go Tous les programmes du numéro 7 sont sur la £ 7 ; 
£ ; : ous les programmes du numéro 8 sont sur la dis- 
î = nn démonstration gratuite08 — quette 8 + Un programme inédit et gratuit ! 


LES PLUS 
M REPORTAGE: AMSTRAD SHOW 
BB L'EVASION TELEMATIQUE 
BB PROGRAMMES: GESTION DE STOCK - DAO ET GSX 
2 À Tous les programmes du numéro 6 sont sur la 
disquette 6 + Une démonstration gratuite de 
= TASWORD 8000 


MLES CONFIDENCES DE LOCOSCRIPT 
M PROGRAMME : MATRIX - PATRIMOINE 
MESSAIS : TASWORD 8000 - MEDIACOMPTA 
MX330 - CLEF POUR PCW 


Tous les programmes du numéro 4 
sont sur la disquette 4 







A 










SPECIAL 
SOMMAIRE 


SPECIAL 
JEUX 























M DBASEI : 
INITIATION {VII} 
LES AVEUX DE MME 
LACAILLE {1} 
BB LIVRE : FICHIER SUR AMSTRAD 
M DELUGE ASCII (IV): RPED 
LES CONFIDENCES DE LOCOSCRIPT 

BB L'EVASION TELEMATIQUE 
BB PROGRAMMES : MATHELEM 

BESSAI: GRAPHIC MAGIC - JOYSTICK 
E Tous les programmes du numéro 9 sont sur la 

disquette 9 + Une démonstration gratuite de 

_ GRAPHIC MAGIC 



























7 © 
D 
SPECIAL 
TELECOM- 
MUNICATION 
/ B OBASEI : 
INITIATION (VII) 
BE COMMUNICATION : 


L'UNIVERS TELEMATIQUE - LES 
LIVRES - RS232 
M L'EVASION TELEMATIQUE 
M DIVERS: DECOUPE BANDES - PCW VECU 
M CP/M: TOUT SUR LE CLAVIER 
M PROGRAMMES: PERT - RS/MAKER - OTHELLO 
MESSAIS: MODEM OLITEC - CALVACOM - MAIL232 


£ 
£ Tous les programmes du numéro 10 
= sont sur la disquette 10 
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l'écho 


ENFIN UN CLUB ! 


POUR TOUS LES PASSIONNES 
QUI VEULENT TIRER LE MAXIMUM 
DE LEUR MACHINE 


Démarrant ses activités le 1° Décembre 
1986, le CLUB ECHO DU PCW sera l'indis- 
pensable complément du magazine. 


Les remises accordées par les revendeurs 
« club » ainsi que les logiciels donnés par le 
club doivent permettrent d'amortir très rapi- 
dement le coût de l'inscription. 


Un bulletin mensuel servira de liaison entre 
les adhérents et comprendra toutes les infor- 
mations à caractère urgent (nouveauté, expo- 
sition) mais aussi l’adresse des revendeurs 
« Club » mise à jour, des programmes inédits, 
des trucs et astuces impubliables (par rapport 
à la quantité) ainsi que des informations 
techniques. 


CE QUE VOUS OFFRE LE CLUB 
Dès réception de votre inscription, nous vous 
ferons parvenir : 
- Votre carte personnelle d’adhérent 


- Votre code d'accès à votre boîte aux lettres 
personnelle sur le serveur ECHO 


- Un tableur qui est en train de révolutionner 
l'Angleterre est offert par MML aux adhé- 
rents du club (valeur 450 F) 


- La liste des revendeurs « club » de toute la 
France chez qui vous obtiendrez les meilleu- 
res remises. 


TOUTE L'ANNEE 


- Vous recevrez régulièrement votre bulletin 
de liaison. 


- Vous pourrez participer aux stages organi- 
sés par l'Echo du PCW selon des conditions 
très avantageuses. 


- Vous pourrez utiliser et consulter en toute 
liberté votre boîte aux lettres personnelle sur 
le serveur de l’Echo. 


- Etre invité personnellement à toutes les réu- 
nions ou exposition organisées par l'Echo du 
PCW. 


Pour faire partie des privilégiés du PCW, 
n'attendez-pas, inscrivez-vous pour une 
année au CLUB DE L'ECHO DU PCW et 
retourner le bon ci-dessous à : 
CLUB ECHO DU PCW, LOGI'STICK Edition 
CAPN Le Bonaparte, Boîte 49 
93153 Le Blanc Mesnil Cédex 


DE ns et ont nt ner nf nn 


J'adhère pour une année à compter du  / / 


NON a = == PRENOM: 
ADRESSE : 
TEL. : 7 ______________ PROFESSION : 


Tarif pour une année : France 350 F - Etranger 495 F 


au club de l'ECHO DU PCW 


AGE : 


Signature obligatoire : 


Etudiants et chômeurs : France 290 - Etranger DOM TOM 390 F 


(Accompagnez votre inscription du justificatif) 


Règlement par ES Chèque ou [3 Mandat à L'ECHO DU PCW 
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PROGRAMMATION 
AVANCEE 









MONITEUR 


SAISIE DU PROGRAMME 


Le Basic Mallard sert de support à cette 
application et c’est pourquoi il faut 
préalablement le charger comme l'annexe de la 
page 56 l'explique. Indépendamment de la saisie, 
aussi expliquée en annexe, je me permets de 
vous mettre en garde contre plusieurs 
particularités qui sont d’une extrême importance 
si vous ne voulez pas avoir à recommencer 
plusieurs fois le travail (et si ça vous arrive, vous 
ne pourrez pas dire que je ne vous avais pas 
averti..). 


— Ne saisissez les instructions OPTION RUN 
(ligne 90) et OUT 248,8 (ligne 100) qu'une 
fois le programme entièrement vérifié et 
fonctionnant parfaitement. La raison est simple : 
OUT 248,8 désactive l'écran le temps que le 
programme démarre et que l'écran se dessine et 
OPTION RUN interdit l’usage de [STOP] dont 
vous aurez bien besoin pour interrompre le 
programme lors de sa mise au point. 


— Ne lancez pas le programme avant d’avoir fait 
vérifier les codes des routines en code machine 
par le sous-programme situé en 3440. Vous le 
ferez en le lançant par GOTO 3450 et si le 
programme indique qu'aucune erreur n’a été 
détectée vous pourrez enfin lancer le 
programme par RUN [RETURN]. 


LES OPTIONS DU PROGRAMME 


La saisie du programme ayant été 
convenablement effectuée, le programme se 
lance in extenso par l'écran de la figure 1. 
Les options que je vais détailler par la suite sont 
sélectionnées par déplacement d’un curseur qui 
met l’option en inversion vidéo (sur la figure 1, 
le curseur se trouve sur ‘‘Conversions””’). Ce 
curseur se déplace sur le menu à l’aide des 


ANNE AUONRE 


Soit onze numéros 


pour 290 F 
au lieu de 330 F 
prix normal 


(Bon de commande en pages 
centrales, feuillet détachable) 


HEFESESERESES ESS 
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#* MONITEUR DK DISQUETTE UV 1.2 ## Par Vincent LEDOS (c) LOGI'STICK 87 # # 





DE DISQUETTE 


Par Vincent LEDOS 
Ce moniteur permet de lire, de modifier et 
d'écrire tout ce que vous désirez sur une 
disquette au format CF2 ou, si vous préférez, 
se trouvant dans le lecteur A. Les possibilités 
de cet utilitaire sont donc aussi diverses 


que terriblement utiles, soit : 

- Renommer un fichier 

- Récupérer un fichier effacé 

- Voir le contenu d'un fichier quelconque 

- Modifier les états d'un fichier (USER, RO/RW...) 
.. Et bien d'autres encore. 























flèches haute et basse. Une fois l'option choisie, 
validez en pressant [RETURN] ou [ENTER] puis 
entrez vos choix selon le détail des options 
décrites dès à présent. 


Piste 


Cette option permet de définir le numéro de la 
piste courante. Les valeurs acceptées doivent 
être comprises en Oh et 27h (soit de 0 à 39 en 
hexadécimal). Chaque piste étant divisée en 9 
secteurs, vous aurez recours à l'option suivante 
pour en changer la valeur, mais au préalable 
retenez qu'un demi bloc est formé par le 
numéro de la piste et du secteur et ce dernier 
faisant 512 octets vous déduisez qu'un bloc est 
constitué de deux secteurs. Pour des raisons de 
présentation, les blocs sont divisés par le 
programme en deux pages de 256 octets 
présentés alternativement par l'option ‘‘Pages”’ 


Secteur 

Comme la précédente, cette fonction permet de 
choisir le numéro du secteur visualisé dans la 
limite de O à 9. 


Figure 1 


Piste....0 
C eur.., 
Page, ..,..0 


BSBRRESSESESERES 
SRBESE SERRE 
2 BS RSR enenman 
2SBARSSSSESSSESS 
SSBRSSETRES Se nS 
BEESIESSISTS RSS 
2SESESSESESELESS 
BEEFEFSSSARSESES 
SRSÉSÉESETSEILESS 





2522225222 32255525 
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Page 


Conformément à ce que j’ai dit dans l'option 
‘“Piste‘‘, le secteur ne peut-être présenté en un 
seul morceau et c’est par cette option que vous 
passerez de la première moitié (Page O) à la 
seconde (Page 1). 


Lire bloc 


Une fois piste et secteur sélectionnés par les 
deux premières options, il faut indiquer au 
programme votre intention de lire le bloc 
correspondant. Notez qu’une erreur peut se 
produire si la disquette n’est pas au format 
simple densité (C2F). 

Le bloc s'inscrivant à l’écran est toujours en 
page 0. Vous pouvez aussi remarquer que dès 
lancement, le programme affiche le bloc 
correspondant à la piste 1, secteur 1 qui 
correspond au début du DIRECTORY 
(répertoire des fichiers) et que cela est nettement 
plus intéressant que piste 0 bloc 1 qui contient 


ORGANISATION DU DIRECTORY 






Etat du fichier : Les valeurs possibles sont : 20H nom de la disquette 
OOH fichier présent 

E5H fichier effacé 

O à FH : numéro d'USER 





















Si le Bit 7 est à 1 : le fichier est R/O 
Si le Bit 7 est à O : le fichier est R/W 
Nombre de blocs 
de 128 octets de 
l'enregistrement. 
Si égal à 80h et 
si le fichier fait plus 
de 16ko il nécessite 
d'autres entrées au 
directory 


Nom du fichier 





J 21 
V Ÿ 4 Ÿ 
000 00 4A 32 31 46 4C 4F 


» 
Co 
BE 
= 
& 
an 
(@] 
O 
oo 
© — 
Q 
© 
Q 
© 
© 
O 
© 
© 


Si le BIT 7 est à 1: le fichier est SYS 
Si le BIT 7 est à O: le fichier est DIR 


Numéro d'enregistrement 
dans le cas de fichiers 
occupant plusieurs entrées 
au directory 


010 02 03 04 05 06 07 08 09 OA OB OC OD OE OF 10 11 
l ] 


T 
Numéro des blocs occupés (1ko par bloc) 





Compteur 


EXEMPLE : 

- Dans la figure 1 le fichier J21FLOCO.EMS occupe 3 entrées au directory. En 
regardant l’octet 13 de chaque entrée, on en vérifie l’ordre de mémorisation 
(0,1,2, n'est-ce pas ?). 

- En totalisant le nombre de blocs (octet 16) on arrive à 352 unités (80h + 80h 

. + 60h) soit 352x128 = 45056 octets ou 44 ko vérifié par DIR ° DRIVE = A8 sous 

CP/M. 








un fichier système destiné à charger le CP/M 
dans l'ordinateur. 


Ecrire bloc 


Si vous avez effectué une ou plusieurs 
modifications sur le bloc courant à l’aide de la 
fonction ‘‘Corrections’””, vous pouvez 
maintenant sauvegarder ce dernier dans l’état où 
vous l’avez mis. Attention à ce que l’ergot de 
la disquette soit en position ‘‘enregistrement 
permis”” et évitez de sauver des modifications 
donc vous n'êtes pas totalement certain. Je 
profite de l’occasion pour vous conseiller de 
faire vos premières armes sur une disquette dont 
vous avez gardé précieusement une copie conforme. 
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Avance automatique 


Cette option vous permet de cheminer, bloc par 
bloc, d’une piste à une autre sans avoir à entrer 
ses coordonnées. L'ordre d'affichage suit l’ordre 
logique soit : PISTE Oh à 27h, SECTEUR 0 

à 9, PAGE 0 à 1. 


Exemple : PISTE 3 SECTEUR 8 PAGE 0 … 
PISTE 3 SECTEUR 8 PAGE 1 … 
PISTE 3 SECTEUR 9 PAGE O0 … 
PISTE 3 SECTEUR 9 PAGE 1 … 
PISTE 4 SECTEUR 1 PAGE 0 etc. 


Recherches 


Sachant qu'une disquette au format CF2 peut 
mémoriser 184320 octets, il devient pratique de 
laisser le soin au programme de charger pour 
vous un code particulier ou une séquence 
alphanumérique. 


Cette recherche démarre du bloc courant en 
comptabilisant les répétitions, et fonctionne tout 






STRUCTURE PHYSIQUE 







D'UN DISQUE Piste O 
Structure de la disquette 
CF2 Piste 39 
























40 Pistes numérotées 





de O à 39 

9 secteurs numérotés 

de 1à9 

Enregistrements = 128 ses 
octets (secteurs logique 

pour CP/M) (secteur 9) 











Blocs = 8 enregistrements 
et occupent 2 secteurs (1024 octets ou 1 ko) 
Le bloc est la plus petite partie du disc. 


















Le système réserve une piste pour son usage soit 9 
secteurs ou 4,5 ko 

Le directory réserve 64 entrées de 32 octets chacune 
(comme décrit dans l'encadré organisation du directory) 
soit 2 Ko. 




















Si l’on calcule : Pistes x secteurs x blocs on obtient 
40xX9x512=184320 octets ou 184320/1024 = 180ko 
si l'on soustrait 4,5 ko et 2 ko il reste bien 173,5ko dis- 
ponibles arrondis à 173 ko (pas de demi-blocs dans le 
directory) 












aussi bien si la séquence cherchée se trouve à 
cheval sur 2 blocs. 






Chaque similitude étant mémorisée, la fin de la 
recherche permet d’avoir toutes les positions 
(piste et secteur) de ce qui était recherché. 


Les recherches étant assez longues, vous aurez 
toujours le loisir de les interrompre par [EXIT] 
ou mieux encore, d'aller potasser, café en mains 
l'excellent CLEF POUR AMSTRAD (tome 2) 
des éditions PSI (pub gratuite !). 


Corrections 


Ce choix permet de modifier n'importe lequel 
des octets du bloc visualisé. Une fois validé, il 
donne accès à chaque valeur par les 4 flèches de 
curseur et autorise l'entrée de valeurs pouvant 
être soit ASCII, soit hexadécimales, et ce, sous 
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le contrôle de la touche [TAB] qui fait passer 
alternativement d’une base à l’autre. 


Conversions 


Cette partie du programme vous sera d’un grand 
secours tout au long de vos manipulations. En 
premier lieu, elle permet d'effectuer les 
conversions de bases de décimale à 
hexadécimale et vice versa. En second lieu, elle 
détermine la position physique (en piste et en 

‘ secteur) d’un bloc que vous lui proposez. 
Exemple : Nous savons que le fichier 
MODELE.STD occupe le bloc 54h (ou M en 
ASCII, vérifiez-le en figure 1). Pour s’y rendre 
facilement, demandons à cette option de nous 
donner les coordonnées du bloc 54h. La 
réponse ne se fait pas attendre : PISTE 13 
SECTEUR 7. 


Nous entrons ce résultat avec les deux premières 
options et nous le vérifions avec ‘‘Lire bloc‘. 
Pas d’erreur, c’est bien le fichier MODELE.STD 
qui s'affiche. 


Change disk 


Cette fonction doit être sollicitée à chaque 
changement de disquette en A car elle détecte 
tout anomalie dans le format de la disquette. 
Comme la fonction suivante, n’oubliez jamais 
de sauver vos modifications avant de 
changer de disquette. 


Quitter 


Comme toute chose, ce programme a aussi une 
fin. C'est par le biais de cette option qu'elle 
arrive et qui, en dernier recours, demande une 
confirmation en espérant rappeler à l’ordre tout 
étourdi qui n'aurait pas sauvé les ultimes 
modifications. 


Vous voilà aux 
commandes d’un 
nouvel outil qui 
vous rendra 
d’inestimables 
services. 
Manipulez-le dans 
tous les sens sur 
une copie de 
disquette 
contenant, de 
préférence, 
de nombreux 
fichiers de 
toutes sortes 
(ASCII, RO, 
RW, de différents 
USER, .….). 















En insistant un peu, vous comprendrez 
rapidement la structure du format et les 
nombreuses particularités de ces merveilleuses 
petites disquettes sans lesquelles le PCW ne 
serait vraiment pas ce qu'il est ! M 


10 REN RXFETIRERERERRENEEEIERELLELTE 
20 REN %? MONITEUR DE DISQUETTE À 
30 REN 3 réalisé par L 
AO REN 3 LEDOS VINCENT t 
50 REN % pour L'ECHO DU PCY } 
GO REM ? (c) LOGI'STICK 1987 + 
TO REN YXXRRASSSARTIREINIENTREIIIES 
80 REM 


90 OPTION RUN: DESACTIVE LA TOUCHE STOP 
100 OUT 248,8:' COUPE LA LIAISON AVEC LE MONITEUR 

110 HM2HIMEM:MEMORY 4HE300-1:' SAUVE LA MEMOIRE HAUTE AVANT DE 
LA CHANGER 

120 ESCS=CHRS(27):' SEQUENCE ESCAPE 

190 CLSS=ESCH+"H"#ESCS+"E":" VARIABLE POUR EFFACER L'ECRAN 

140 YAS=ESCS+"Y":" VARIABLE POUR LOCALISER LE CURSEUR 

190 BIPS=CHR#(7):" VARIABLE POUR EMETTRE UN BIP SONORE 

160 PRINT ESC#;"0":" EFFACE LA LIGNE D'ETAT DU BAS DE L'ECRAN 
170 DIM PC1),ST(32,3):' DEFINITION DES TABLEAUX 

180 L18=ESCS+"p':108=ESC8+"q":" VARIABLES POUR LE MODE INVERSI 
œN 

190 CIS=ESC#+"e":CON=ESCS+"{" 1" VARIABLES POUR SUPPRIMER LE CU 
RSEUR 

200 ON ERROR 6070 720:' DETOURNEMENT DU PROGRAMME SI ERREUR 
210 Lel:Tal:$=1:PAGE=0:CH=1:" INITIALISATION DE QUELQUES VARIA 
BLES 

220 PRINT CO$:' EFFACE LE CURSEUR 

230 OPTION NOT TAB:' PERMET D'AVOIR LA FLECHE POINTANT VERS LE 
BAS 

240 REX 

250 REM #44 LECTURE DES CODES POUR LES ROUTINES EN LANGAGE MAC 

HINE 111 

260 REM 

270 RESTORE 500 

280 REX 

290 REM 322 ROUTINE D'AFFICHAGE DES CODES HEXA ET ASCII 

300 REX 

310 AFF=4HE300:FOR N=0 TO 83 

320 READ OS:POKE AFF4N, VAL("EH"+08) 

330 NEXT 

340 REM 

350 REM #4* ROUTINE INITIALISATION D'UNE DISQUETTE 

360 REM 4tt ROUTINE DE GESTION D'UNE DISQUETTE : LECTURE & ECR 
ITURE 

370 RE 

380 INIDIS=8HE360:DISK=2RHE36C 

390 FOR N=0 T0 35 

400 READ OS:POKE INIDIS+N, VAL("4H"+08) 

410 NET 

420 REX 

430 REM #4 NETTOYAGE DE LA ZONE DE STOCKAGE 

440 REN 

450 FOR N=0 TO 6S:POKE AHEGOO4N, 32:NEXT 

460 CALL INIDIS 

470 REM 

480 REM #42 LISTE DES CODES HEXADEC IMAUX 

490 REN 

500 DATA 21,00,E4,11,00,E6,E5,06,10,7E,E6,F0,1F,1F,1F,1F, CD, 1F 
E3,7E,E6,0F, CD, 1F,E3, 23 

810 DATA 13,10,E0,18,08,FE, 0A,38,02,C6,07,C6,30,12,13,C9, 13,00 
,E1,06,10,7E,FE,20, 38, 06 

820 DATA FE,80,30,02, 18,02, 3E,20,12,13,23,10,ÉE,06,41,0€, 02,21 
,00,E6,5E,E5,CS,CD, 05,00 

830 DATA C1,E1,23,10,F8,C9,0€,00,00,21,80,E6, C0, SA,FC, 92,00, C9 
06,01,0€,00,16,01,1E,01 

$40 DATA 21,00,E4,00,21,80,E6,CD,SA,FC,86, 00,32, 7E,E6,C9 
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550 REX 
60 REN tt+ MENU PRINCIPAL tit 

570 REX 

580 GOSUB 1710:REM 148 AFFICHAGE DE L'ECRAN 
590 M#="VEUILLEZ ATTENDRE":G0SUB 2030 

600 60TO 2590 

610 M#="MENU PRINCIPAL : UTILISEZ * ,*, 
030 

620 PRINT VAS :CHRS(32425):CHR8(32485):ESC8 : CHR (9) 

630 PRINT VXS:CHRSC32#VTCCH)) 5 "1": IIS: TISCCH): 108 

GAO IS="":VHILE I9="":I82INKEYS: VEND: IS=UPPERS (18): 1=ASCC18) 
650 IF 1=30 AND CHCD11 THEN PRINT YXS:CHRS(32#NT(CH)): "1": TES 
CH):CH=CH+1 :60T0 630 

660 IF 1=31 AND CHC)1 THEN PRINT VAS:CHR8C324YTCCH)) "1": TIS(C 
H):CH=CH-1:6070 630 

670 IF 1213 THEN ON CH GOTO 2090,2180, 2270, 2470, 2510, 2540, 1200 
,2950,2640, 1130, 2340 

680 GOTO 640 

690 REN 

100 REM 49+ ERREUR 113 

710 RE 

120 2=ERR:RESUME 730 

730 MS="ERREUR BASIC N°"#STR8(2)+" EN LIGNE"2STRSCERL):60SUB 2 
030 

T40 PRINT BIPS: 

780 FOR N=1 T0 3000:NET 

760 60TO 610 

170 REX 

780 REM #44 ENTREE D'UN NOMBRE HEXA 1tt 

190 REM 

800 NS=HENS(N, L) :E=0 

810 PRINT VAS:CHRSC324Y):CHRS(3241):NS: 

820 19="*:VHILE 19="": LS=UPPERSCINKEYS ) : VEND 

830 IF I#=CHRS(19) THEN N=VALC'&H"4NS) :RETURN 

840 IF 18=ESCS THEN PRINT VAS:CHRS(324Y):CHRS(324X):STRINGS(L, 
32):E= 1 :RETURN 

860 IF NOT((IS)="0" AND 18="9%) OR (I$)="A" AND 18(=*F")) THE 
N 820 

860 N#=HIDSCNS, 2418 

870 60TO 810 

880 REN 

890 REM 44% OUMPING OU BLOC EN MEMOIRE #44 

900 REX 

910 I=PAGEX256:D=0:NI=BHEA+PAGE :POKE BHE302, NI 

920 FOR N=0 TO 15 

930 PRINT VKS:CHR#CN#39) : "RM HENSCD4I 3): vs 

940 POKE 4HE301 ,D:CALL AFF 

950 D=0+16 

960 NEXT 

970 RETURN 

980 RE 

990 REM ##£ LECTURE / ECRITURE D'UN BLOC #tt 

1000 REX 

1010 POKE DISK#18,BHBG:REM #44 POKE POUR LA LECTURE 

1020 S0=$:T0=T 

1030 60T0 1090 

1040 POKE DUSK+18,BHBS:REN #38 POKE POUR L'ECRITURE 

1050 IF S0=S AND TO=T THEN 1090 

1060 M$="BLOC DEST, CT: +HEXSCT,2)+" GL'AHELSCS,234%) € OU BL 
OC SOURCE CT:"#HEKSCTO,2)4" S:4HEXS(SO,2)4"), CONFIRMEZ L'ECR 
LTURE (Q/N)":60SUB 2030 

1070 I$=INKEYS:I8="":VHILE 18)" AND I4C)"N": IS=UPPERSCINKEY 
$):VEND 

1080 1F 1#="N" THEN RETURN 

1090 POKE DISK4S,T:POKE DISK#7,S-1:CALL DISK 


€RETURN)":G0SUB 2 
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1100 A=PEEK(RHEG7E) 

1110 IF A THEN M$="ECHEC DANS LA GESTION DISQUETTE":G0SUB 2030 
!PRINT BIP$::FOR B=1 TO 2500: NEXT 

1120 RETURN 

1130 REN 

1140 REM 344 CHANGER DE DISQUETTE &4à 

1150 REA 

1160 M$="METTEZ LA NOUVELLE DISQUETTE PUIS PRESSEZ (SPACE) OU 

PRESSEZ <EXIT) POUR ANNULER":G60SUB 2030 

1170 IS=INKEYS:18="":VHILE 19€)" " AND [$C)ESCS:I$=INKEYS VEND 
:I$=UPPERS$(IS) 

1180 IF I$=CHR$(27) THEN 610 

1190 M$=" VEUILLEZ ATTENDRE":60SUB 2030:CALL INIDIS:T=1:S21;PAG 

E=0:60T0 2590 

1200 REN 

1210 REM #*t RECHERCHES 334 

1220 REM 

1230 M#="RECHERCHES, (1) D'UNE CHAINE (2) DE CODES (3) QU 
ITTER" :G60SUB 2030 

1240 IS=INKEYS: 182" UHILE [$C"1" OR 18)" 3": I$=INKEYS VEND 
1250 IF 1$="3" THEN 610 

1260 IF I$="2" THEN 1620 

1270 M$="":G0SUB 2030:REN *t4 EFFACE LA LIGNE D'ETAT RESERVEE 
AUX MESSAGES 

1280 PRINT YXS:"9HRECHERCHE CHAINE; ":CI$::LINE INPUT P$:PRINT 
C0$ 

1290 P=LEN(P#):ERASE P:DIM P(P) 

1300 FOR N=1 TO P:PCN)=ASC(MIDS(PS,N, DD): NEXT 

1310 TT=T:66=S:K=1: TR=0 

1320 60SUB 1490 

1330 POKE DISK+18,&H86:G0SUB 1090 :R=8HE400 

1340 IF A THEN GOTO 1380 

1350 IS=INKEYS:IF I$2ESC$ THEN ET$="ABANDON":60T0 1500 

1360 IF PEEK(RI=PCX) THEN ZO=R:212T:22=S:60T0 1400 

1370 R=R#1:IF ROAHEGOO THEN 1360 

1380 S=S+1:1F S=10 THEN S=1:T2T+11IF T240 THEN T=0 

1390 IF S=SS AND T=TT THEN ET$="FIN":60T0 1500 ELSE 1320 

1400 IF X=P+1 THEN TR=TR#T:STCTR,1)=21 :STCTR,2)=22:ST(TR,3)220 
-HE400:1=1:60SUB 1490:60T0 1370 

1410 IF PEEKC(R)OPCX) THEN X21:60T0 1370 

1420 R=R+1:K=X+1:IF RORHEGOO THEN 1400 

1430 S=$+1:1F S=10 THEN S=1:T=T+1:IF T=40 THEN T=0 

1440 60SUB 1490 

1450 POKE DISK+18,8H86:G0SUB 1090 :R=8HE400 

1460 IF A THEN PRINT:6070 1380 

1470 IS=INKEYS:IF I$=ESC$ THEN 640 

1480 GOTO 1400 

1490 M$="RECHERCHE EN P:"+HEXS(T,2)+" S:"#HENS(S)+" / TR, * 
#STRSCTR)+" FOIS /  CEXIT> PÔUR ARRETER":G0T0 2030 

1500 M$=ETS+" :"4STRS(TR)+" ADRESSES TROUVEES, APPUVEZ SUR UNE 
TOUCHES POUR LES VOIR" :60SUB 2030 

1510 IS=INKEYS:1$="":VHILE 14="":I$2INKEYS: VEND 

1520 LeTR/S:IF LOINT(L) THEN L<INT(L#1) 

1530 FOR M=1 TO L:A$="" 

1540 FOR N=0 TO 4 

1550 1=(H-1)85+1 

1560 IF A+NC=TR THEN M$=N$+" P:"#HEXSCSTOUEN,1),2)4" S1"#HEXS( 
STCX4N,2))+" A: "#HEXSCSTOKEN,3),3)4" * 

1570 NEXT:G60SUB 2030 

1580 IS=INKEYS:1$="":UHILE 14="":I$=INKEYS : VEND 

1590 NET 

1600 H$="VEUILLEZ ATTENDRE":60SUB 2030 

1610 6070 2590 

1620 M#="":60SUB 2030:REN #tt EFFACE LA LIGNE D'ETAT RESERVEE 
AUX MESSAGES 
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1630 PRINT YAS:"94RECHERCHE CODES: ":CI$::LINE INPUT P$:PRINT 
co$ 

1640 C=1:FOR N=1 TO LEN(PS) 

1650 IF MIDS(PS,N,1)="," THEN C=C+1 

1660 NEXT 

1670 ERASE P:P=C:C=1:DIN P(P):X=0:P#=P$+" " 

1680 Y=INSTR(X+1,P$,",") 

1690 PCC)=VALCHIDS(PS,K+1,Y-1)):C=C+1:IF VOLENCPS) THEN X=Y:6 
OTO 1680 

1700 G0TO 1310 

1710 REN 

1720 REM 3*t MASQUE DE L'ECRAN 133 

1730 REX 

1740 PRINT CLS$ 

1750 HS$=CHRS(149):ES=" * 

1760 PRINT:PRINT CHR$CISO):STRINGS(88, 154): CHRS(156); 

1770 PRINT HS:ES:CHRSCISO):STRINGS(84,154),CHRS(1S6),ES M$; 
1780 PRINT MS:E#: M8: "4 à MONITEUR DE DISQUETTE V1,2 $t 
Par Vincent LEDOS - (c) LOGI'STICK 87 à *":M$:ES$:n$; 

1790 PRINT M$:ES$:CHRSC147):STRINGS(84, 154): CHR$(153):E$:M8; 
1800 PRINT A$:E$:CHR$(150):STRINGS(70, 154): CHRS(1S6): ES: CHRS(1 
S0):STRINGSC11, 154): CHRSCISE):ES MS: 

1810 FOR A=1 TO 16 

1820 PRINT A$:E$:CHR#(149): STRENGS (70,32) ,CHR$(149): ES: CHRS( 14 
9):STRINGSC11,32):CHR$(149);ES: M8; 

1830 NEXT 

1840 PRINT HS:ES:CHRS(147);STRINGS (70,154), CHR#(153) ES; CHRS(1 
AT): STRINGSC1 1,164): CHR$(153): ES, H8; 

1850 PRINT M#:E$:CHRSCTSO): STRINGS(84, 154), CHRS(156) ES; HS; 
1860 PRINT H$:E$:M$:STRINGSCB4,32):M$:E8 18: 

1870 PRINT MS:ES:CHRS(147):STRINGS(84,154) ;CHR$(153):E$ M$; 
1880 PRINT CHR#(147): STRING$(88,154):CHR$(153): 

1890 RESTORE 1960 

1900 DIN TI#(11),VT(11) 

1910 FOR A=1 TO 11 

1920 READ YT(A),TISCA) 

1930 PRINT YIS$:CHRS(32#YT(A)): "1": TIS$CA) 

1940 NEIT 

1950 PRINT VAS: "'It ME NU 2":PRINT YKS$,"Ck":CHRSCIST) STRING 
#011,154):CHR$(157) 

1960 DATA 9,"Piste,,,,01",10,"Secteur,,,1",11,"Page,,,,,,0",13 
"Lire bloc 

1970 DATA 14, "Ecrire bloc",15,"Avance auto", 17, "Recherches "1 
8,"Corrections" 

1980 DATA 19, "Conversions" ,21, "Change disk",22,"Quitter " 
1990 VIDTH 90 

2000 OUT 248,7:REM #34 REMET LA LIAISON ORDINATEUR-HONITEUR 
2010 RETURN 

2020 REM 

2030 REM 3$$ LIGNE D'ETAT #43 

2040 REN 

2050 PRINT:PRINT YX$:"98"; 

2060 LO=LENCHS) :TA=INT((84-LD)/2) 

2070 PRINT STRINGS(TA,32):H$:TAB(87);" " 

2080 RETURN 

2090 REN 

2100 REN 2% CHANGER DE PISTE 823 

2110 REM 

2120 M$="PISTE : ENTREZ UNE VALEUR HEXA COMPRISE ENTRE 00 ET 
27 OU EXIT POUR ANNULER":60SUB 2030 

2130 T9=T:A=8S:YEYT(1):L=2:N2T 

2140 PRINT 118::G0SUB 770:PRINT 104; 

2150 IF E=1 OR N)39 THEN N=T9 

2160 T=N:MID$CTIS$(1),10,2)=HELSCT,2) 

2170 G60TO 610 


2180 REN 

2190 REM tt CHANGER DE SECTEUR 334 

2200 REX 

2210 MS="SECTEUR : ENTREZ UNE VALEUR HEXA COMPRISE ENTRE 1 ET 
9 OU EXIT POUR ANNULER":60SUB 2030 

2220 19=$ 1286: V2YT(2) Le: N=S 

2230 PRINT 118::60SUB 770:PRINT 108: 

2240 IF Ez1 OR N)9 OR NI THEN N=T9 

2250 S=N:MIDSCTIS(2), 11, D=HES(S) 

2260 60TO 610 

2270 REX 

2280 REM 444 CHANGER DE PAGE 434 

2290 REX 

2300 MS="AUTRE PAGE : VEUILLEZ ATTENDRE" :60SUB 2030 :PAGE=1-PAG 
E:PRINT YXS:CHR6C324T(2)) :"vt : LIS:HENS(PAGE ) : 108 

2310 MIDSCTIS(3), 11, L)2HEXS (PAGE) 

2320 60SUB 880 

2330 60T0 610 

2340 REM 

2350 REM tt QUITTER 414 

2360 REN 

2370 NS="CONFIRMEZ LA SORTIE : (0/N)*:60SUB 2030 

2380 I8=INKEVS:I8="":VHILE 18()"0 AND ISC"N*:IS=UPPERSCINKEY 
$):VEND 

2390 IF 14="N" THEN 610 

2400 OPTION STOP:MEMORY HA 

2410 OPTION TAB 

2420 PRINT C18:CLS$: 

2430 END 

2440 REN 

2480 REM 444 LECTURE / ECRITURE D'UN BLOC #4i 

2460 REN 

2470 M$="LECTURE D'UN BLOC : VEUILLEZ ATTENDRE" :60SUB 2030 
2480 OSUB 1010 

2490 IF A=0 THEN PAGE=0:MIDSCTI#(3), 11,12" 0" :PRINT VIS" 4v":" 
0":60SUB 880 

2800 60TO 610 

2810 M8="ECRITURE D'UN BLOC : VEUILLEZ ATTENDRE":60SUB 2030 
2520 60SUB 1040 

2830 60T0 610 

2540 REX 

2880 REM #44 AVANCE AUTOMATIQUE 344 

2560 REX 

2870 M8="AVANCE AUTOMATIQUE : VEUILLEZ ATTENDRE" :60SUB 2030 
2880 PAGE=PAGE+1:1F PAGE=2 THEN PAGE=0:S2S+1:1F S=10 THEN Sel: 
T=T#1:1F 1240 THEN T=0 

2890 MIDSCTISC1),10,2)2HEX8CT,2):PRINT VAS:CHRSC324#YTC1)) "ut; 
HEXS(T,2) 

2600 MIDSCTIS(2), 11, DIHENSCSD:PRINT VAS:CHR#(322YT(2)) ;"v":HE 
x($) 

2810 MIDSCTI8(3),11,D2HENSCPAGE) :PRINT YAS:CHRS(324VT(3)):"v" 
HEXS (PAGE) 

2820 GOSUB 1010:608U8 880 

2630 6010 610 

2640 REM 

2850 REM #tt CONVERSIONS tt 

2660 REM 

2870 M#="CONVERSIONS: (1) HEXA-DECI (2) COURDONNEES-N'BLOC 

(3) QUITTER" :60SUB 2030 

2680 I$=INKEYS:18="":VHILE 19)"1" AND 19()"2 AND 180)°9": 18e 
INKEYS : VEND 

2690 IF 1#="3 THEN 610 

2700 IF 1$="2" THEN 2650 

2710 REM , 

2720 REM 444 CONVERSIONS HEXA-DECI +44 
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2730 RE : 
2740 M$="CONVERSIONS: (1) HEXA -» DECI (2) DECI -» HEXA":60 
SUB 2030 

2780 IS=INKEYS: 182" :UHILE 18C)°1" AND 19€)"2":18=INKEYS:VEND 
2760 H$="":G0SUB 2030:1F I4="2" THEN 2820 

2770 M8='CONVERSION: HEXA -» DECI, VALEUR A CONVERTIR = ":P 
RINT VAS: "98": MS: {LINE INPUT :A8 

2780 N=VALC'AH"+AS):1F NCO THEN N=6553614N 

2790 PRINT "h =":STRS(N:"d" 

2800 IS=INKEVS: 182" "UHILE 19=1%:182INKEYS :VEND 

2810 6070 610 

2820 M#="CONVERSION: DECI -) HEXA, 
RINT VAS: "9H" :MS {LINE INPUT :A8 
2830 NS=HEXSCVALCAS),4):PRINT “d = *;N$;"h" 

2840 6010 2800 

2850 REM 

2860 REM 344 CONVERSIONS N'BLOC-COORDONNEES +34 
2870 REN 

2880 M$="CONVERSIONS: (1) COORDONNEES -> N'BLOC 
=) COORDONNEES" :60SUB 2030 

2890 I8=INKEYS: 192" VHILE 19031" AND 180)"2": 18e INKEYS END 
2900 M="":60SU8 2030: IF I$="2° THEN 2930 

2910 HS="CONVERSION: CODRDONNEES -) N'BLOC, PISTE SECTEUR ( 
HEXA) = "PRINT VAS: "OR MS: LINE INPUT :A$:L=INSTRCAS, ","):B8 

2NIDSCAS, K41) AS=LEFTSCAS,X-1) 

2920 A=VALC"BH"+A8) :BeVAL ("BH 488) :N=(9CA-1)#(B-1))/2:PRINT * 
=) IHEXSCN,2):'h":60TO 2800 

2930 MS="CONVERSION: N'BLOC -) COORDONNEES, 
"PRINT VAS: "9" :MS LINE INPUT A6 

2940 N=VALC'AH AS) A=INTC(28N49)/9):B=22N410-9HA PRINT * =) 
2HEXSCA,2):",":HEXS(B):" CHEXA)":60TO 2800 

2950 REX 

2960 REM #44 MODIFICATIONS +44 

2970 RE 

2980 2021 :K=0:Ve0 :AD=PAGEX256 

2990 MS="CORRECTIONS: UTILISER LES CURSEURS, 

ONE, CEXIT) POUR QUITTER" :60SUB 2030 

3000 6010 3070 

3010 PRINT YAS:CHR8(394):CHRSCAO4L43): 118:PS: TOS RETURN 

3020 PRINT YKS:CHRS(394Y):CHRS (404143) :PS:RETURN 

3030 IF P(32 OR P>127 THEN P232 

3040 PRINT YXS:CHRS(394Y):CHR6(8941) : 118: CHRS(P) : LOS:RETURN 

3050 1F P32 OR P>127 THEN P=32 

3060 PRINT YKS:CHR8(394Y):CHRS(894K) : CHRS(P) :RETURN 

3070 REM 

3080 REM tt CORRECTION DANS LA ZONE DES CODES HEXADEC IMAUX 
3090 REM 

3100 A2AHEAOO+VH16+K+AD:P=PEEK(A) :P8=HEXS CP, 2):60SUB 3010 

3110 IS=INKEVS: I$=" M VHILE 18219: 1$2[NKEYS:VEND 

3120 IF I#=ESC4 THEN GOSUB 3020:6070 610 

3130 IF IS=CHRS(6) THEN GOSUB 3020:X=1+1:60T0 3220 

3140 IF IS=CHRS(1) THEN 60SUB 3020:1=1-1:60T0 3220 

3180 IF IS=CHR#(30) THEN GOSUB 3020:Y=V+1:60T0 3220 

3160 IF IS=CHRS(31) THEN GOSUB 3020:Y=V-1:60T0 3220 

3170 IF IS=CHRS(9) THEN GOSUB 3020:20=2:60T0 3270 

3180 IF NOT((IS)="0" AND 18€="9) OR CIS)="A" AND I$4="F")) TH 
EN 3110 

3190 PS=RIGHTS(PS,1)+18:60SUB 3010:2=VAL("4H"+PS):POKE A,2 
3200 IF 2€32 OR 23127 THEN 2=32 

3210 PRINT YAS:CHRS(394Y):CHRS(89+K) :CHRS(Z):GOTO 3110 

3220 IF A=16 THEN X=0:Y=V+1 

3230 IF L=-1 THEN K=15:Y=V-1 

3240 IF Y=16 THEN Y=0 

3250 IF V=-1 THEN Y=15 

3260 ON 20 60T0 3070, 3270 


VALEUR A CONVERTIR = ":P 


(2) N'BLOC 


N'BLOC CHEXA) = 


(TAB> = AUTRE 2 
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3270 REN 

3280 REM ##t CORRECTION DANS LA ZONE DES CODES ASCII #tt 
3290 REN 

3300 A=&HE400+YX16+X+AD:P=PEEK(A):60SUB 3030 

3310 LS$=INKEYS"1$="":UHILE [$="":IS$=INKEYS: VEND 
3320 IF I$=ESC$ THEN 60SUB 3050:G0T0 610 

3330 IF IS$=CHR#(6) THEN GOSUB 3050:X=1+1:60T0 3220 
3340 IF I$=CHR$(1) THEN GOSUB 3050:4=X-1:60T0 3220 
3350 IF I$=CHR#(30) THEN GOSUB 3050:Y=Y+1:G0T0 3220 
3360 IF I$=CHR$(31) THEN GOSUB 3050:Y=Y-1:6070 3220 
3370 IF I$=CHR$(9) THEN GDSUB 3050:20=1:60TD 3070 
3380 IF 18€" " OR IS)CHR#(127) THEN 3310 

3390 P#=I$:P=ASCCIS):POKE AÀ,P 

3400 P$=HEXS(P,2):G0SUB 3020 :60SUB 3050 

3410 A=1+1:60T0 3220 

3420 REM 

3430 REM 2x VERIFICATEUR DE DATAS fit 

3440 REN 

3450 PRINT 

3460 PRINT "VERIFICATEUR DE DATAS"* 

3470 PRINT "asesssesssssssssnsezs" 

3480 PRINT 

3490 RESTORE 500:S=0 

3500 FOR N=0 TO 119 

3510 READ 0$:S2S+VAL("4H"+0$) 

3520 NEXT 

3530 IF $=11497 THEN 3570 

3540 PRINT "Une erreur s'est introduite dans les codes des rou 
tines en langage machine," 

3550 PRINT “Veuillez relire ces codes," 

3560 END 

3570 PRINT "Les codes des routines en langage aachine sont cor 
rects," 

3580 END 


LE CLUB ECHO, C'EST L'AFFAIRE 


: DU SIECLE! 
N'OUBLIEZ PLUS LE CLUB ET TOUSSES 
AVANTAGES... 


NE HUMPHRE Y 


NT BOGART 


REC 5 1/02/1989 CCE 6 74894 


(Inscrivez-vous avec le bon situé en pages centrales) 


ABONNES! n'oubliez-pas de nous signaler 
votre changement d'adresse... 


36 












INTERACTIF... INTER 


C'est du haut de mon cocotier que j'ai savouré, 
par cet été radieux (mais humide avouons-le), 
les incroyables révélations de nos auteurs les 
plus fidèles. 


Kagésoft se confesse publiquement dans une lettre qui se 

doit d’être publiée dans son intégralité (dans l’encadré qui 

traîne sur la page)... 

Ne voulant pas être en reste, Tony Luzy redoute une juste 

punition pour d’affreuses erreurs qui ont semé troubles et 

perturbations jusqu’au golfe Persique. Il nous écrit donc : 

“Tremblant à l’idée des coups de fouets qui m'attendent dans le prochain numéro...“ 
Comme vos courriers le demandent fort justement, nous allons donc fouetter les deux 
coupables jusqu'à ce qu'ils promettent de ne plus recommencer avant trois numéros ! 
Les erreurs furent et resteront longtemps dans nos mémoires. 

1 - Fichier STANDARD.KEY à la 30° ligne : Il fallait lire ‘‘G'‘ au lieu de ‘‘tY"* 

2 - Fichier DBASE.KEY il faut ajouter : 79 E ‘‘.‘‘ point décimal (pavé numérique). 
Corrigé à temps dans la version disquette, les lecteurs l'ayant reçue, peuvent s'abstenir de 
toute correction particulière. 


AVIS !!! 

Mon aimable direction m'a transmis une masse importante de réclamations aussi mal 
fondées que nombreuses, je me sens dans l'obligation de rétablir une vérité qui semble 
échapper à de nombreux lecteurs : 

LES LISTINGS DE L'ECHO NE SONT PAS TRUFFES DE BUGS !!! 

Si c'était le cas, je n'ose imaginer dans quelle ANPE nous pointerions aujourd’hui. S'il est 
vrai que quelques erreurs échappent à une vigilance sans cesse croissante, il ne faut tout de 
même pas nous faire croire qu'elles sont légions. Pour le prouver, voici un petit 
récapitulatif : 

GSXDAO : 6 REM ont sautés à l'impression : corrigé dans Interactif le mois suivant. 
Fichier PROFILE.SUB remplacer GSXDAO par BASIC GSXDAO 

ATHEMYS : Le programme ne fonctionne que s’il est se trouve.sur une disquette vierge 
sans autre compagnie que celle de PLANCOMP.TAB. Ce n'est pas une erreur, c'est une 
question de place. 

MATHELEM : Une seule erreur de codes corrigée plus bas. 

MULTIPLA.KEY : Une erreur corrigée dans Interactif de l’Echo 10. 

DBASE.KEY et STANDARD.KEY : Une erreur corrigée plus haut. 

Tous les autres programmes fonctionnent parfaitement. 

J'en déduis qu'un vérificateur de listing est à envisager dans les meilleurs délais et je m'en 
vais de ce pas en parler à MARC HERMION (dit E = MC3 !) pour qu'il nous arrange cela... 


ST VAN SONDAGE ECHO 


Submergées par les questionnaires du sondage 
de notre précédent numéro, les 143 
secrétaires chargées du dépouillement n'ont 
pu en arriver encore à bout ! Vous pouvez 
donc continuer à nous les transmettre pour 
que nous en fassions une analyse détaillée 
dans un prochain numéro. 


IL A GAGNE ! 


Alain HOBRECHTS notre gagnant du 
mois pour son programme OTHELLO, 
a fait l'unanimité de vos votes et nous 
sommes fiers de lui remettre (en ce jour 
pluvieux) une prime supplémentaire 
de 1000F … 


Sur ce, je retourne à mes noix de coco 
en compagnie de ma nouvelle conquête 
qui se prénome.. Chita ! 


o0v° 


Pierre PAND 
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PROGRAMME BASIC 











NIVEAU : DEBUTANT 








STICKER MAKER 


Par Albert DUROUX 


NUMEROTATION AUTOMATIQUE D'ETIQUETTES AUTO-COLLANTES 





300 Dossiers à numéroter? Mais peut-être 
déménagez-vous? Les colis s'empilent et vous 
finissez par vous demander ce que chacun 
contient. Mieux, vous envisagez d'effectuer un 
sérieux contrôle pour vérifier qu'aucun d'’entre- 
eux n'a pris le chemin de la rue des Morillons 
{avis, ce sont les objets trouvés !)... 

Le problème peut se résoudre aisément en 
numérotant chacun des objets à inclure dans 
une check list exhaustive. Le PCW et sa chère 
petite imprimante nous sortent une fois de plus 
de l'embarras en se chargeant de l’édition sur 
étiquettes auto-collantes de grands nombres, 
visibles de loin, et surtout se suivant dans 

un ordre parfait. 









Le principe : 
Saisi sous basic Mallard, le programme est aussi 
court que judicieusement organisé pour 
répondre à deux impératifs majeurs : 

1/ Le calage de l'étiquette 

2/ Le codage des chiffres. 


LAS RPEE à 
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Nombre d'unités avant le début 
de l'étiquette 
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STICKER MAKER + L'ECHO DU PCW N°11 






À. 94567 A 34568 ( JUSTIFIRES à GAUCHE ) 


Nombre d'unité sur l'étiquette 


ss Less. 


LES TES SES ETES ETS EE SEX L'EST EEE EE 


Le calage de l’étiquette : 


Etant en continu, les étiquettes peuvent être 
positionnées à n'importe quel endroit de 
l'imprimante. Le problème est alors d'indiquer 
avec exactitude le début et la largeur de cette 
dernière afin que le programme puisse 
imprimer là où il le doit. 

La méthode utilisée par le programme 
STICKER MAKER pour y arriver consiste à 
coller une étiquette sur une page blanche puis 
à insérer celle-ci dans l'imprimante. Dès 
lancement du programme, il faut lui préciser 
que l’on désire paramétrer l'imprimante afin 
qu'il trace un gabarit qui servira de repère. On 
compte le nombre d'unités situées avant le 
début de l'étiquette, le nombre d'unités situées 
sur l'étiquette et on les indique au programme 
qui s’émpresse alors de tracer une ligne de # 
(dièse) correspondant à la largeur de l'étiquette. 
(figure 1) 


Le codage des chiffres : 


Si le principe du codage binaire a été adopté, 
l'originalité de la méthode repose sur son 





L'écran auto-documenté suffit à tirer 
le maximum de STICKER.MAKER 










CC 

















organisation. Le tracé de tous les chiffres, de 
0 à 9, peut s’obtenir à partir de 9 graphismes 
types que l’on peut assembler du haut vers le 
bas pour reconstituer chaque chiffre. Chaque 
graphisme (ligne) est alors codé suivant la 
logique binaire et la valeur qui en résulte sert 
à en recréer le graphisme qui, mémorisé dans 
un tableau à deux dimensions, pourra être 
récupéré à tout moment. (figure 2) 


Cette opération se passe aux lignes 230 et 240 
en fonction des DATAS des lignes 250 à 340. 
Cette méthode peut aussi s'appliquer aux lettres 
mais il faudra plus de graphismes de base 


| REM Apr AN ne 


2REM+ € STICKER-MAKER ) 

3 REMY (Cc) LOGI'STICK 1987 À 

LREn ? L'ECHO OU PCW Î 

5 REM RRRRREIRAASERRIREEIREIIANIIR 

6 REN 

10 CLEAR:DIM C#(9,6):ESC$=CHR#(27) PRINT ESC$"E"ESC$"H" : GOSUB 
350 

20 REX 

30 REN SELECTION DES NOMBRES À IMPRIMER 

40 REM 


50 GOSUB 390: INPUT "CARACTERE DE DESSIN, ,":E$:G0SUB 230 

60 INPUT "NOMBRE DE CHIFFRE PAR ETIQUETTES,, ,":MS:M=VAL (MS): 1F 
MC OR MOINTCY/6) THEN 60 

10 PRINT "ENTREZ LE NOMBRE DE DEPART € MAX,"M::INPUT "CHIFFRES 
"1h 

80 IF LENCNS))M THEN 70 

90 PRINT "ENTREZ LE NOMBRE FINAL € INFERIEUR A":-1410°M: : INPUT 
),, M eNFS NES VALONFS):IF NF)-1#10°M THEN NF=-1410°N 

100 2=Y-MR6:N=VALCNS):PRINT “JUSTIFICATION (D)ROITE OU (G)AUCH 
gr 

110 AS=UPPERSCINKEYS) :J=lJ8="DROITE":1F A$C"D* THEN Je2:J82" 

BAUCHE" :1F ASC"6" THEN 110 

120 PRINT "JE VAIS IMPRIMERNF-N9I"ETIQUETTES DEN"A®NF “C JUS 
TIFIEES À "J8" ) 

130 PRINT "ETES-VOUS D'ACCORD (OUI OÙ (N)ON 7° 

140 AS=UPPERS(INKEYS): IF A$C)°0" THEN IF A$=tN" THEN 60 ELSE | 

10 

180 FOR A=N TO NF:A9=STRSCA) :LELENCAS)-1 

160 PRINT ESCS"Y"CHRS(AS)CHRS(32):FOR C=0 TO G:LPRINT SPACES(I 
e21F Jel THEN LPRINT SPACES(2#64CH-L)41); 

170 FOR B=1 TO L'LPRINT ASCCCVAL(MIDS(AS,B+1,1)),C))° *::NENT 

BALPRINTANENT C:LPRINT:LPRINT 

180 NEXT A:PRINT ESCS'E"ESCS"H®::G0T0 50 

190 REN 

200 REM CODAGE DES 9 TYPES DE GRAPHISMES 

210 REM 

220 DATA 20,2,4,7,16,1,31,17,12 

230 RESTORE 220:FOR A=1 TO 9:READ B:FOR C=4 TO O STEP -1:1F B) 

22°C THEN B=8-2"C:09=09+€8 ELSE DS=09+" * 

VO NEXT C'ASCA)=D8:D8x"":NENT A:RETURN 


260 DATA 7,8,8,8,8,8,7:REM CODAGE DE 0 
260 DATA 3,9,1,3,3,9,7:REM CODAGE DE | 
210 DATA 7,6,6,7,5,5,7:REN CODAGE DE 2 
280 DATA 7,6,6,4,6,6,7:REM CODAGE DE 3 
290 DATA 5,5,8,7,6,6,6:REM CODAGE DE 4 
300 DATA 7,5,5,7,6,6,7:REM CODAGE DE S 
310 DATA 7,5,5,7,8,8,7:REM CODAGE DE 6 
420 DATA 7,6,6,2,3,3,3:REM CODAGE DE 7 
390 DATA 7,8,8,7,8,8,7:REM CODAGE DE 8 
340 DATA 7,8,8,7,6,6,7:REM CODAGE DE 9 


PROGRAMME BASIC 










pour arriver à re- 
constituer la tota- 
lité de l’alphabet 
(environ une 
vingtaine). 


Quel excel- 
lent exercice 
en perspec- 
tive ! D 


Valeur de la case 
N°du 2 23 22 21 2° 
codage 16 8 4 2 1 














Valeur totale par codage 


350 RESTORE 250:FOR A=0 TO 9:FOR B=0 T0 6:READ C:CCA,B)2C:NENT 
B,A:RETURN 

360 REN 

370 REM PARAMETRAGE DE L'IMPRIMANTE 

380 REN 

390 PRINT “VOULEZ-VOUS PARAMETRER L'IMPRIMANTE (O)UI OU (N)ON 
7?" 

400 AS=UPPERSCINKEYS):1F A$=°N" THEN RETURN ELSE IF A9C)°0" TH 

EN 400 

410 PRINT "PRESSEZ (RETURN) QUAND VOS ETIQUETTES SONT POSITION 

NEES SUR L'IMPRIMANTE" 

420 1F INKEYSOCHRS(13) THEN 420 

430 LPRINT ESCH"X"ESCS"P"ESCS"c"ESCS"N'CHRS(O):FOR I=1 T0 8:LP 

RINT sus ls eNEXTELPRINT 


440 INPUT “ENTREZ LE NOMBRE D'UNITES AVANT LE DEBUT DE L'ETIQU 
ETTE, "5x 

450 INPUT "ENTREZ LE NOMBRE D'UNITES SUR L'ÉTIQUETTE, .":V:1F 
Y+1)79 THEN 450 

460 LPRINT SPACESCL)STRINGS(Y, "#") 

470 PRINT “EST-CE CORRECT (O)UI OÙ CN)ON 2" 

480 AS=UPPERSCINKEYS):1F A$="N" THEN 430 ELSE IF A$C)*0" THEN 
480 

490 RETURN 
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Figure 2 


Principe 


chiffres 





TÈÈÈiIÈÈ 
ÈIÈIÈ 


LOISIR INFORMATIQUE 
39, rue de |” i 


14600 CAEN 
Tél. : 31 85 18 77 


F.N.A.C. ETOILE COMPUTER MARKET 
26, Avenue de Wagram 


150, rue Antoine-Dansaert 
15008 PARIS 
Tél. : 47 66 52 50 31, rue du Gal de Gaulle 
95880 ENGHIEN 
Tél. : 34 12 89 3] 


F.N.A.C. .N.A.C. 
Centre Commercial Colombia Centre Commercial Saint-Jacques 
35000 RENNES ; : à 87000 METZ 
Tél. : 99 31 79 79 99600 AULNAY-SOUS-BOIS Tél. : 87 36 16 22 
Tél. : 48 68 66 


MICRONAUTE VIDEO SHOP INFORMATIQUE SYSTEME 
50, rue de Richelieu 99, Avenue du Gal Leclerc 
: bé 1) ou 15001 PARIS 94700 MAISONS-ALFORT 


ORDIVIDUEL 
20, rue de Montreuil 
94300 VINCENNES 


Pe NN 
NT 


HYPER-C.B. ARTS ET BUREAUTIQUE 
183, rue Saint-Charles 


SERVICE LOISIR INFORMATIQUE PROFORMA-P.S.I. 


22, place du Gal de Gaulle 
15015 PARIS en ns 16600 LE HAVRE 25000 BESANÇON 
Tél. : 45 54 39 76 Tél. : 60 14 09 54 Tél. : 35 43 51 54 Tél. : 81 82 245] 


TAMSCALL 


fes CALCUL ACTUEL LOGIMICRO 
108, rue Léon Gambetta Centre Corimercii) Pol 
59000 LILLE 


I 1 Polygone ' 2, avenue de Laon 
13006 MARSEILLE 
34041 MONTPELLIER 51100 REIMS 
Tél. : 20 57 18 8 Tél. : 91 33 33 44 Tél. : 26 47 44 14 


| 


SORBONNE INFORMATIQUE 
40, rue Gioffredo 1, rue des Belges 
06000 NICE 06400 CANNES 
Tél. : 93 85 17 55 


| 


I] 









INITIATION 





INTELLIGENCE ARTIFICIELLE 


e système-expert est une application 


prometteuse de ce qu'il est convenu 


d'appeler l’Intelligence Artificielle, laquelle 
est à l'informatique traditionnelle ce que 
Versailles est à l'architecture, c’est-à-dire 
quelque chose de beau et d’élégant (et 
éventuellement d'’utile !). Un système-expert 
se propose de modéliser le comportement 
d’un expert humain, quel qu’il soit, dans 


son analyse face à un problème donné, et | 
de rendre les solutions éventuelles. Par Par Patrice BIHAN 
exemple, il existe aujourd'hui de nombreux 


< te Enfin un logiciel d'initiation aux Systèmes- 
systèmes-experts qui classifient et analysent 


les maladies, les galaxies ou encore les Experts vient de faire son apparition sur PCW. 
gisements géologiques : bref, ils sont une Il se présente sous la forme d'une disquette 
nouvelle approche de l'analyse informatique accompagnée d’un court (très court) manuel 
en ce sens qu'ils évitent à leur utilisateur d'utilisation, l'ensemble étant commercialisé 
l'apprentissage d’un langage de type BASIC au prix de 249 F TTC par la société Loisitech 
(par exemple) pour résoudre un problème et Petrel 


particulier ; en fait, ils n'évitent pas par 
contre l'apprentissage de leurs principes de Avant de voir de près le fonctionnement de ce 
logiciel, nous allons rapidement présenter ce 
qu'est un système-expert et ses principes. 


fonctionnement, ce qui peut être très 
complexe. 


Comment fonctionne 
un système-expert ? 




















La base de règles est un second fichier 
Le principe essentiel servant de base au contenant des règles, c'est-à-dire des 
système-expert repose sur les trois divisions informations codifiées et théoriquement 
vante correctes sur un univers donné, par 
exemple ici le domaine médical. Ces règles 
se présentent toujours selon le modèle 
suivant (dans une version simplifiée) : 


- Base de faits 

- Base de règles 

- Moteur d'inférences 
SI telle condition est vraie et 


Ea base de faits est un fichier contenant des SI telle autre condition est vraie et 


faits, des assertions décrivant l’objet de 
l'analyse. Prenons l'exemple d'un système- 
expert médical, sensé donner un diagnostic 
(disons tout de suite que si vous êtes ALORS 
malade, mieux vaut pour l'instant encore 
consulter la Faculté si vous ne voulez pas 
perdre les vôtres !). Pour émettre ce Par exemple, on peut émettre les règles 
dernier, encore faut-il savoir sur quoi porte suivantes : 
le jugement médical, en d’autres termes 
quels sont les symptômes et les 
renseignements susceptibles de donner une 
indication quant à la maladie. Imaginons 
que notre malade ait 45 ans, soit de sexe 
masculin, et que son état physique soit : 
-yeux rouges, 40° de fièvre, fatigue générale. 
Tous ces renseignements sont des faits, que 
l'on doit entrer dans la base de faits, par 
exemple sous la forme suivante : 


SI telle autre condition est vraie 


on peut tirer telle conclusion. 


. *** 
*+* Base de règles 


SI le patient à les yeux rouges et 
SI le patient à 40° de fièvre 
ALORS le patient 4 la grippe. 


SI le patient a 40° de be 

SI le patient à mal au ue ne 
SI le patient est de sexe Im es 
ALORS le patient à uñ abcès à : 





*** Base de faits * * * 





: - le patient à les yeux rouges 
\ \ Î / - le patient a 40° de fièvre 


\ PA: / - le patient à 45 ans 





biliaires et 


: 40° de fièvre et 
SI le patient à 40 . ion des voies 
le patient présente SI le patient a UNE ae 
« ü 
une fati énéral SI le patient à la peau | iocolite. 
gue générale ALORS le patient a une ang 


- le patient est de 
sexe masculin 
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LE MOTEUR D’INFERENCES 


Supposons avoir écrit un certain nombre de 
règles de ce type décrivant un maximum de 
maladies selon des symptômes précis. 
Comment le système va-t'il maintenant 
pouvoir rendre son verdict ? 





Le principe essentiel de fonctionnement 
est organisé autour du moteur d’inférences, 
qui est un algorithme permettant de faire 
correspondre, comme on l’imagine, 

les règles et les faits entre eux, c’est-à-dire 
de voir si telle ou telle règle de la base 

de règles peut être mise en correspondance 
avec les faits de la base de faits. 

Les relations logiques entre deux 

(ou plusieurs) faits se nomment des 
inférences, c’est-à-dire des déductions. 

Un système-expert se doit de fonctionner 
selon le principe dit du ‘‘chaînage avant”’ et 
celui dit ‘‘du chaînage arrière”. 













les 7e 
le patient 400 de pauses et 
vr 


€ 





PP 
le patient : dep est a 


€ fièvre et 





, PAS nécessairs 4 
Ensemble q Saire d'analyser la 3e 





DONC je fn "€ Pas. 
é l'an ait le patient dunes 
ySe de là base q Angiocolite’’ 
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jouté dans BDF 


Fa : 
Si le Patient à Mal au se; 
ein 


a rê lee 
NC le fait “le patient P3 vérifié) "MON ici, puisque 
u % 
n Ces au sein ,) ne peut : 
ctre validé 
GE: 


« ne A 
€ règles **+ Peut être validé. 











LE CHAINAGE AVANT : 


Le chaînage avant permet de découvrir des 
faits nouveaux à partir de ceux existants et 
fonctionne par saturation. Par exemple, 
dans le cas de notre malade, le chaînage 
avant va analyser toutes les règles de la base 
de règles une à une ; si les conditions d’une 
règle sont des faits déjà existant dans la 
base de faits, la conclusion de la règle 
devient à son tour un fait, qui lui-même est 
ajouté dans la base de faits. Une fois que 
toutes les règles ont été ainsi analysées, et 
que, tant qu'un fait nouveau a été ajouté, le 
système réanalyse de nouveau toutes les 
règles pour savoir si de nouvelles 
déductions ne peuvent pas être faites, et ce 
jusqu’à saturation, c’est-à-dire jusqu’à ce 
qu'aucun fait nouveau ne puisse être 

déduit : la liste des faits renvoie alors, outre 
les faits de départ, les faits déduits ; le 
système 2 alors rendu toutes les solutions 
possibles déductibles. Dans notre exemple, 
si on lance l'expertise, nous obtenons : 


(BDF : Base de faits, BDR : Base de règles) 





Comme un fait nouveau a été 
ajouté dans la base de 
faits, le moteur 
d'inférences 
recommence l'analyse 
sur les règles 2 et 3 
(la 1 étant déjà 
vérifiée). Il n’y a pas 
de faits nouveaux, le 
système a donc déduit 
tout ce qui était 
déductible. 


L'intérêt du chaînage 
avant est de permettre 
une recherche dans une 
base de faits et de règles 
en ‘‘aveugle‘', c'est-à-dire 
sans savoir ce que l’on va 
découvrir a priori. 















de fièvre 





LE CHAINAGE 
ARRIERE 


Le chaînage arrière procède 
de manière radicalement 
différente. On part de la 
conclusion et l’on remonte 
vers les faits, un peu comme 
si l’on posait la question : 
‘‘le patient a-t'il la grippe ?‘*. 
Le système commence par 
chercher dans la base de faits 
(de départ) si le simple fait ‘‘le 
patient a la grippe ‘‘ existe ; 
comme il n’y est pas, il cherche 
dans la base de règles en lisant 
d’abord la conclusion des règles 
































INTELLIGENCE ARTIFICIELLE 


qu'il compare à la question. Dès qu'il y a 
unification (comparaison réussie), le système 
analyse chaque condition qu'il recherche 
dans BDF ou éventuellement dans BDR. Il ne 
faut pas oublier qu’une condition dans une 
règle peut elle-même être la conclusion d’une 
règle. Dans notre exemple, nous demanderons : 


*** Question * * * 
- Question : le patient à la grippe 


- Recherche dans BDF 
Aucun résultat 


- Recherche dans BDR 


> Comparaison de la question avec la conclusion 
de la 1 règle le patient a la grippe. 
comparaison réussie. 
> Analyse de la première condition : 
le patient a les veux rouges 
Comparaison réussie dans BDF. 
+ Analyse de la seconde condition : 
le patient à 40° de fièvre 
Comparaison réussie dans BDF. 
La règle ‘‘le patient à la grippe” est vérifiée. 
+ Comparaison de la question avec la conclusion 
de la 2° règle ‘‘le patient a un abcès au sein”. 
comparaison impossible. 


+ Comparaison de la question avec la conclusion 
de la 3° règle ‘‘le patient a une angiocolite”. 
comparaison impossible. 


*** Fin des recherches * * * 





On voit l'intérêt du chaînage arrière. Il évite 
de lire toutes les règles en ne s'intéressant 
qu'à celles qui ont un rapport direct. C'est le 
chaînage arrière qui est utilisé dans le 
langage PROLOG. 

Ordre 0, 0+ et 1 


Une distinction importante est à faire selon 
les possibilités offertes par le système-expert. 
On a coutume de classer l'analyse logique 
selon son type d'ordre. L'ordre O0 correspond 
au logiciel TURBO EXPERT BASE. Il signifie 
que les valeurs utilisées sont des constantes, 
c'est-à-dire des nombres ou des mots. 
L'ordre 0 + correspondra à la même chose, à 
la différence près que les valeurs peuvent 
être quantifiées (par exemple : si 
la température du patient est supérieure à 38°, 
ou 
la profondeur du gisement est comprise entre 
120 et 230 m, 


ce qui signifie que la condition est vraie si la 
température vaut 38.3° ou 40, ou bien que 
la profondeur du gisement est égale à 123 

ou 200 m). L'ordre 1 est le fin du fin en la 
matière, car outre le fait qu’il permet l’ordre 
0 et 0 +, il offre l'usage de variables, ce qui 
est plus puissant, car cela permet de simplifier 
grandement l'écriture des règles : le langage 


FICHE TECHNIQUE 


NOM : TURBO EXPERT BASE 
GENRE : SYSTEME EXPERT D’INITIATION 


AUTEUR : PATRICK LECLERC 
EDITEUR : LOISITECH ET PETREL 
DISTRIBUTEUR : IDEM 

PRIX PUBLIC TTC : 249 F 





Après cette longue digression, revenons à TURBO 
EXPERT BASE. Il permet le chaînage avant et arrière, et 
est de type ordre 0, c'est-à-dire qu'il peut créer un 
système-expert médical comme celui que l’on vient de 
voir. En réalité, de tels systèmes sont plus complexes, 
car ils intégrent une approche probabiliste des 
connaissances, l'usage de coefficients de vraisemblance, 
l'analyse de l'incertain et des données manquantes etc. 
TURBO EXPERT BASE est un système-expert d'initiation, 
ou plus précisément un générateur de système-expert. On 
peut très facilement, grâce aux menus qui le parsèment, 
créer une base de connaissances (base de faits plus base 
de règles) et l'utiliser. Le chaînage avant et arrière 
permet de faire fonctionner le système, qui 
éventuellement posera des questions à l'utilisateur pour 
savoir si tel ou tel fait est valide ou pas. Le chaînage 
arrière est validé par le choix TEST D'UNE HYPOTHESE. 
Le chaînage avant est validé par le choix DEDUCTION, 
et les résultats peuvent être imprimés. La base de 
connaissances peut être bien sûr sauvegardée sur disque. 


C'est un bon logiciel d’initation aux systèmes-experts, et 
son prix est très attractif. Il permet de faire des règles 
composées de plusieurs conclusions, ce qui est très fin. 
Quelques défauts mineurs apparaissent cependant ça et là, 
par exemple la transformation en majuscules des faits mais 
pas des règles, ou bien le déplacement des flêches si SHIFT 
LOCK est allumé ou non, ou encore, ce qui est plus génant, 
la déduction en chaînage avant n’est pas automatique. 
Par exemple, si nous avons les règles suivantes : 

- Si B alors A 

- Si C alors B 
et le fait C, 


le système va trouver en mode Déduction, donc en 
chaînage avant, que B est vrai, ce qui est fort... vrai, et 
ajoute donc B dans la base de faits. L'ennui est que le 
moteur s'arrête Car il ne procède pas par saturation 
comme il a été expliqué préalablement. Car l’on peut se 
dire maintenant que si B est vrai, alors A l’est aussi. Si le 
moteur fonctionnait en saturation, il devrait trouver 
d'abord B, l'ajouter dans BDF, puis recommencer 
l'analyse en relisant les règles et donc trouver A. Pour 
pouvoir avec TURBO EXPERT trouver néanmoins toutes 
les solutions, il faut simuler la saturation en relançant le 
système à chaque fois qu'il répond ‘‘fin des déductions‘. 
Dès qu'effectivement il ne répond plus rien, alors il n’y a 
vraiment plus rien à déduire: il eut été préférable que 
cela soit automatique, mais tout de même, TURBO 
EXPERT reste très convenable pour qui désire s'initier. 


Pour terminer, il serait intéressant de savoir si certains 
lecteurs crèent où envisagent de créer leur propre 
système et si c'est le cas qu'ils n’hésitent pas à m'en 


PROLOG est de ce type par exemple. informer en m'écrivant au journal. M | 
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PROGRAMME BASIC 









GESTION/COMPTABILITE 









T.A.0. 


Factures, plannings ou comptes-rendus, les 
tableaux savent si bien se rendre indispensables 
qu'il serait injuste de ne point leur consacrer une 
application à la mesure des services qu’ils rendent 


avec tant de discrète modestie... 


LE TABLEAUTAGE ASSISTE 
PAR ORDINATEUR 


Par Gérard SIRHUGUES 

















DON DE CONHANDI 








Modèle de bon de a tracé directenent sur 
RE et réutil lt sans de savants calculs 
ns un progranne ds 


Hobter MAROC mulet BR eee dem UPS DS SUB EU E 



























Tableau A 

= | PRESENTATION 

2 minutes 

pour un Saisi sous basic Mallard (voir annexe en page 
Don ue 56), TABLEAUX.BAS occupe 10 Ko de 
commande... : ; À > A es: 
Qui dit mémoire vive. Une fois entré et Bien vérifié il 
mieux ? pourra être lancé automatiquement par 


PROFILE.SUB si ce dernier contient la 
séquence BASIC TABLEAUX et si les 
programmes J14FCPM3.EMS, SUBMIT.COM et 
BASIC.COM se trouvent sur la même disquette 
que lui. Voyons maintenant le détail de son 
utilisation. 


1. ECRAN DE PRESENTATION 


- Taper sous CP/M ‘BASIC TABLEAUX‘ 

- Le premier écran affiche la liste des fichiers- 
tableaux éventuellement présents sur le disque 
(le programme leur adjoint automatiquement 
l'extension ‘‘.TBL). 

On peut alors : 

- Lire un autre disque (option [A]) 

- Travailler sur ce disque (option [T]) 

- Détruire un fichier (option [D]) 

- Quitter le programme (option [QI]. C’est le seul 
moment où on peut le faire, le programme 
étant sous OPTION RUN. Avant de revenir 
sous BASIC, le programme réinitialise l'écran 
et la fonction WIDTH. 


2. ECRAN DE TRAVAIL 
EN MODE MANUEL 


° Après appui sur la touche [T], le programme 
demande le nom d’un fichier (taper un nom sans 
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Voici, pour l’occasion, le premier générateur de 
tableaux pour PCW dont la souplesse et la 
convivialité leur rendent un juste hommage... 


extension, c’est le programme qui la gère lui- 
même). Si le fichier existe, il est lu et le tableau 
est affiché sur l’écran de travail. Sinon, le 
programme en propose la création. En cas de 
réponse affirmative, l'écran de travail est affiché 
vierge. 

e Dans les deux cas, cet écran de travail se 
compose de 30 lignes pour la création du 
tableau et de deux lignes d'informations. 


e La première ligne rappelle les fonctions 

disponibles : 

- Les flèches permettent de déplacer le curseur. 

- [RETURN] ramène le curseur à la colonne 0 de 
la ligne suivante. 

- [F7] ramène le curseur à l’origine (ligne O, 
colonne 0). 

- [PASTE] permet de basculer du mode TEXTE 
au mode GRAPHIQUE et inversement. 

- [F1] et [F3] permettent de faire défiler à 
gauche de la seconde ligne d'informations les 
caractères graphiques disponibles et les touches 
du clavier qui permettent de les obtenir. 

- [[+]] et [[H]] activent ou désactivent la 
fonction mémoire. 

- La touche [EXIT] permet de quitter l’écran de 
travail. 

- La touche [CAN] donne accès à un écran de 
travail permettant de générer automatiquement 
des encadrés vides ou quadrillés. 


+ Déplacement du curseur : 

- Le curseur se déplace à l’aide des flèches. S’il 
passe sur un caractère affiché, celui-ci se met 
en surbrillance (inversion vidéo). Si le mode 
mémoire est activé (par [[+]]), le caractère 
mémorisé s'affiche partout où passe le curseur. 


+ Mode TEXTE et mode GRAPHIQUE : 


- En mode TEXTE, les caractères affichés sont 
ceux du clavier. 

- En mode graphique, les caractères affichés sont 
les caractères dont les codes sont compris 
entre 128 et 159. La ligne ‘‘HELP‘‘ permet de 
voir les correspondances entre les touches et 
ces caractères. 


° Fonction mémoire: 

- Elle est activée par appui sur la touche [[+]]. 

- Dès lors, le dernier caractère frappé est : . 
mémorisé, il s’affichera automatiquement lors 
de l'emploi des touches de déplacement. 

. Un appui sur une autre touche du clavier 
modifie ce caractère. 

- On quitte le mode mémoire par appui sur [[-]]. 






° La seconde ligne d’informations : 

- Rappel du nom du fichier. 

- Position courante (ligne/colonne) du curseur. 
Permet de connaître les caractéristiques 
d'affichage du tableau pour utilisation 
ultérieure. 

- Rappel du mode en cours (TEXTE ou 
GRAPHIQUE). 

. Rappel du caractère mémorisé si la mémoire 
est activée (emplacement vide si la mémoire est 
désactivée). 

. Rappel des caractères graphiques et des 
touches correspondantes (défilement dans un 
sens ou dans l’autre par appui de [F1] ou [F3]. 


° Sauvegarde d’un fichier : 

- Accessible par appui sur [EXIT] sous écran de 
travail en mode manuel. L’appui sur [EXIT] 
donne accès soit à la sauvegarde, soit au retour 
en mode travail, soit à la relance du 
programme sans sauvegarde. 


3. ECRAN DE TRAVAIL 
EN MODE AUTOMATIQUE 


+ L'accès à cet écran se fait par appui sur la 

touche [CAN]. 

- Cet écran permet la création d'encadrés 
simples ou doubles (un trait simple ou double 
entourant l’encadré) et vides ou quadrillés. 


+ Options disponibles en mode 
automatique : 

- [S] sélectionne un encadré entouré d'un trait 
simple. 

- [D] sélectionne un encadré entouré d’un trait 
double. ; 

- [NV] sélectionne un encadré vide. 

- [Q] sélectionne un encadré quadrillé. 


° Traçage d’un encadré vide : 


- Amener le curseur sur le coin supérieur gauche 
de l’encadré à tracer et valider par appui sur 
[ENTER]. 

- Amener le curseur sur le coin inférieur droit de 
l’encadré et valider : l’encadré apparaît en 
vidéo inverse. Il est alors possible de le 
mémoriser dans le tableau (option [G]) ou de 
l'annuler (option [A]). 


e Traçage d’un encadré quadrillé : 

- Amener le curseur sur le coin supérieur gauche 
de l’encadré à tracer et valider par appui sur 
[ENTER]. 

- Positionner le curseur sur le coin inférieur 
droit du premier carreau du quadrillage à 
tracer et valider par [ENTER]. Le curseur se 
déplacera dès lors, à chaque appui sur une 
flèche, d'autant de lignes ou de colonnes que 
ce premier carreau en comporte, ceci afin 
d'obtenir facilement un quadrillage régulier. 

- Amener le curseur sur le coin inférieur droit 
du quadrillage et valider : le quadrillage 
apparaît en vidéo inverse. On peut aussi le 
mémoriser dans le tableau (option [G] ou 
l’annuler option [A]). 
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- L'option [R] permet de revenir à l'écran de 
travail manuel. 


4. UTILISATION D'UN TABLEAU 
DANS UN PROGRAMME BASIC 


e Le sous-programme débutant à la ligne 1580 

permet de lire sur un disque et d’afficher à 

l'écran un tableau depuis n’importe quel 

programme Basic. Les renseignements suivants 

permettront d'éviter l’écrasement éventuel de 

variables du programme avec celles de ce 

sous-programme : 

- La variable F$ contient le nom du programme. 

- La variable N sert de compteur. 

- La variable P contient les données numériques 
du tableau. 

- La variable L$ contient les chaînes à afficher. 


5. NOTES TECHNIQUES 


e Le tableau se construit à l'écran dans un 
tableau dimensionné de 30 chaînes composées à 
l'origine de 90 espaces chacunes (L$ indicée de 
0 à 29). 


e Il n’est toutefois pas sauvegardé sous cette 
forme. En effet, dans le cas d’un tableau 
n'occupant pas la totalité de la grille de 30 x 90 
caractères, l'affichage des espaces de ces chaînes 
provoquerait un écrasement des données 
éventuellement présentes à l'écran. Chaque 
tableau est donc sauvegardé de façon à ce qu'à 
l'affichage, seules les parties de l'écran situées à 
l'intérieur de ses limites soient effacées, le reste 
étant préservé. 


Encadrés 
| sa M si 
acés en n 


e'atotiqees 


{ T { (R= }(ENTER= TION) 
Fichier DEMO 18 Stan CANE POULE ALROU o-QuupRLLACT) 





Tableau B 
Un 
°Sil dési z I échan- 
i lon désire au contraire, pour les tillonnage 
besoins d’une application, réutiliser un tableau des 
sur un écran complet comportant des espaces, puissantes 
e ; à 2 possibilités 
il faut le charger dans un tableau dimensionné du 
(par exemple L$(29)) selon les modalités des programme 


lignes 230 et 240 du programme. 
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1 REN RÉRREREEEETEEENEEEIREEEREEREEEEEE 
2REN 3? EDITEUR DE TABLEAUX } 


3 REM ? Par! Gérard SIRHUGUES Î 

UREN ? Ce) LOGI'STICK 1987 À 

5 REM XHRRAERSEREREEEERESRETERERETEENS 

6 REM 

10 OPTION RUN 

20 ESCS=CHRS(27) :CLS#=ESCS+"E"+ESC$+"H" :BIB$=CHRS(7) :ENR$=ESCS 

+"V":DESENRS=ESCS+"u" :H$SESCS+"H" 

30 VIDINVS=ESCS+"p" : VIDNORS=ESC#+"q" :EFCURS$=ESCS+"f" : AFCURS$= 

ESC$+"e" 

40 DEF FNWINDS(1,c,h,w)=ESC$+"u"+ESC$+"A"+CHRS(32+1)+CHR$(32+c 
DHCHRS(32+h)+CHRS(3T+w)+ESCS+ "HU: DEF FNLOCSC1, c ,t$)=ESCS+"V"4C 

HR$(32+1)+CHR$(32+c)+t$ 

50 DEF FNVIS=FNWINDS(0,0,32,90):DEF FNV2$=FNWINDS(0,82,32,8):C 
SESC$+"y"+CLS$+ENRS+VIDNORS+AFCURSS 

60 PRINT ESC$:"0":C$: :MIDTH 255,255 

70 DIM L$(29):FOR N=0 TO 29:L$(N)=SPACES(90) :NEXT 

80 HELP$="":FOR N=129 TO 1S9:HELPS=HELP$+VIDINVS+CHRS(N-96)+VI 

DNDRS+" "+CHRS(N)+" ":NEXT:N=0 

90 REM 

100 WIDTH 255,255:PRINT FNWIS:ENRS:CLS$:STRING$(90,"-"):FNLOCS 

(1,30, "EDITION DE TABLE AU X"):PRINT STRINGS(9 

0,"-"):FNWINOS(4,0,28,90):CLS$:FNLOCS(1,0, "Fichiers tableaux p 

résents sur ce disque :")'PRINT ENRS:OPTION FILES "A" 

110 NEN+T:NS=FINDSC"S TBL",N):IF N$="" THEN 120 ELSE PRINT MID 

$CNS,L,LENCN#)-4):" "::G0T0 110 

120 PRINT DESENRS :EFCURSS$ :FNLOC$ (26,0, SPACES(90)) :FNLOC#(26, 12 
"Autre disque - Travail sur ce disque - Destruction - Quitter 

"JS :CNTS="TQDA":GOSUB 1550:1F 120 THEN 120 ELSE ON I GOSUB 180 
,140,150 RUN 

130 END 

140 OPTION STOP:WIDTH 90,90:PRINT C$: :END 

150 PRINT FNLOC$(25,0, "Destruction d'un fichier,")::60SUB 170; 

F$=T$+" TBL':IF FINDS(F#)="" THEN PRINT BIB$::RUN 

160 PRINT FNLOC$(27,0 ,"confiraer la destruction (D/N)")::CNTS= 
*ON":6OSUB 1550:1F 1=2 THEN RUN ELSE KILL F$:RUN 

170 PRINT AFCURS$:FNLOC$(26,0, SPACES(90)):FNLOC$(26,0, "Titre d 

u fichier-tableau! ")::LINE INPUT:TS:PRINT EFCURSS#::IF T$="" T 

HEN RUN ELSE IF LEN (T#))8 THEN 170 ELSE T$=UPPERS(T$) RETURN 
180 PRINT FNLOC$(25,0 "Travail sur ce disque," )::GOSUB 170 

190 F$=T$+",TBL':IF FINDS(F$)€)"" THEN 210 

200 PRINT FNLOC$(27,0,SPACES(90)):FNLOC#(27,0 "Fichier inexist 

ant, Création ? (D/N)')::CNTS="ON":GOSUB 1550:IF 1=2 THEN RUN 

ELSE G60TO 260 

210 REM 

220 PRINT CHR$(27): "y": CLS$: :MESS=AFCURSS :MOD$(0)="TEÂTE" : MOD$ 
C1)=" GRAPH": HEN$=" * 

230 OPEN "I",1,F$:FOR N=0 TO 29: INPUT #1,P,L$:L$CN)=SPACES(90) 
:L$=SPACES(P)+L$ 

240 LSET L$(N)=LS:PRINT FNLOCSCN,0,L$CN)):NEXT N:CLOSE 

250 C=1:60T0 290 

260 REM 

270 L=0:C=1 

280 PRINT CHR$(277: "y": CLS$: MESS=AFCURSS :MOD$(0)="TEXTE" : MODS 
(1)="6RAPH":MEN$=" " 

290 GOSUB 700 

300 DATA 6,1,31,30,13,16,26,17,23,22,28,8,27:RESTORE:CNT$="":F 
OR N=1 TO 13READ M:CNTS=CNTS+CHRSCH) :NEXT 

310 PRINT FNLOCS(L,C-1,MES$): :60SUB 1550:1F 1=0 THEN 330 ELSE 
ON 1 GOSUB 390,410,430,450,470,490,500,520,540,560,580,830, 590 
320 G0TO 310 

330 P=ASC(I$):IF (MD=0 AND (P32 OR P>255)) OR (MD=1 AND (P<32 
OR P>63)) THEN PRINT BIB$::607T0 310 

340 IF P{)32 THEN PS=CHR$(P+96kMD) ELSE P$=" * 
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350 IF RP=0 THEN MID$(L$CL),C, L)=P$:PRINT FNLOC$C(L,C-1,P$):IF 
C{90 THEN C=C+1 

360 IF RP=1 THEN GOSUB 560 

370 6070 310 

380 6OSUB 830:60T0 

390 60SUB 690:1F C<90 THEN C=C+1 ELSE PRINT BIB$::RETURN 

400 60TO 650 

410 GOSUB 690:1F C>1 THEN C=C-1 ELSE PRINT BIB$::RETURN 

420 60T0 650 

430 GOSUB 690:1F L)0 THEN L=L-1 ELSE PRINT BIBS$::RETURN 

440 60T0 650 

450 GOSUB 690:1F L{29 THEN L=L+1 ELSE PRINT BIBS$::RETURN 

460 GOTO 650 

470 C=1:IF L{29 THEN LeL+] 

480 GOTO 650 

490 L=0:C=1:607T0 660 

500 HELP$=MIDSCHELPS,9, LENCHELPS$))+MIDSCHELPS 1,8) 

510 PRINT FNLOC$(31,60 ,LEFTSCHELPS$, 56) }: :RETURN 

520 HELP$=HID$CHELPS ,241 ,LENCHELP$) )+MID$CHELP$, 1,240) 

530 PRINT FNLOC#(31,60 ,LEFTSCHELPS$, 56) ) : RETURN 

540 IF MD=0 THEN MD=1 ELSE MD=0 

550 PRINT VIDINVS:FNLOC$ (31,37 ,NOD$CMD ) ) :VIDNORS : :RETURN 

560 IF P{)32 THEN P$=CHR$(P+96$MD) ELSE P$=" * 

570 RP=1:MEMS=PS:PRINT VIDINVS:FNLOCS(31,50,MEMS):VIDNORS: :RET 
URN 

580 RP=0:MEN$=" ":PRINT FNLOC$(31,50,MEMS) : RETURN 

590 PRINT EFCURSS:FNLOC$(30,0, SPACES$(90)):FNLOCS(31,0, SPACES(9 

0)):FNLOC$(31,29,""): "Sauvegarder - Corriger - Quitter": 

600 I$=INKEYS:IF 1$="" THEN 600 ELSE I$=UPPERS(I$) PRINT FNLOC 

$(31,29,SPACE$(90)); 

610 IF I$="S" THEN OPEN "0",1,F$:FOR N=0 TO 29:60SUB 730:VRITE 
#1,P,LSCN):NEXT:CLOSE : G0TD 590 

620 IF 1$="C" THEN GOSUB 700:,PRINT AFCURS$: :RETURN 

630 IF 1$="Q" THEN RUN 

640 PRINT BIB$::60T0 590 

650 ‘ 

660 PRINT VIDINVS:FNLOCS(31,21,""):USING “##":L 

670 PRINT FNLOC$(31,26,"") USING "##":C-1: 

680 PRINT VIDNORS : :RETURN 

690 IF RP=0 THEN RETURN ELSE MID$(L$(L),C,1)=P$:PRINT FNLOCS(L 
,C-1,P$) RETURN 

700 P=32,RP=0 :MD=1:MEMS=" "PRINT FNLOC$(30,2,""): PRINT "<flè 

ches) (RETURN=RC)<F7=HOME><F 1/F3=HELP) (PASTE=TENTE/GRAPH)<+/-=h 

EM)<CAN=AUTO)<EXIT}" 

710 PRINT FNLOC$(31,2,""): PRINT "Fichier ":T$:FNLOCS(32,18,"" 
Jit-Let VIDINVS USING "#4": Li: PRINT VIDNORS:" C2": VIDINVS SIN 

G "##":C-1: PRINT VIDNORS:" - node: *:VIDINVS :MOD$(MD) : VIDNORS 
1" nent "MENS:" - help: ":LEFTSCHELPS, 56); 

720 RETURN 

730 REM 

740 PRINT FNLOC$(30,0,""): "Sauvegarde en cours,,, Ligne: ":USI 

NG "H#"N 

750 FOR P=90 TO 1 STEP -1:IF MID$CL$CN),P,1)<)" " THEN 770 

760 NEXT P 

770 IF P=0 THEN L$(N)="":RETURN 

780 LSCN)=LEFTS(LSC(N),P) 

790 FOR P=1 TO LENCLSCN)):IF MIDSCLSCN),P,1)€)" * THEN 810 

800 NEXT P 

810 LSCN)=RIGHTS(LSCN) ,LENCLSCN))-P+1) 

820 P=P-1'RETURN 

830 REM tracé de cadres et de quadrillages 

840 CNTIS$=CNTS 

850 PRINT FNLOC$(30,0,SPACES(90)) :FNLOC$(31,0,SPACES$(90)): 

860 PRINT FNLOC$(30,20, ""):"CA=ANNULE ) {G=GARDE > (R=RETOUR)<ENTE 

R=VALIDATION)" 
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870 CDS(O)="{S=CADRE SIMPLE)" :C0$C1)="<D=CADRE DOUBLE)" : QD$ (0) 
="(V=VIDE)" : QD8C1)="<Q=QUADRILLAGE >": CD=0 : QD=0 :NP=0: ILP=1 : ICP= 
1:60=0:60SUB 1480 

880 PRINT FNLOCS(31,2,""): PRINT "Fichier ":T$:FNLOCS(32,18,°" 
Jetta: VIDINVS USINE ER :L: PRINT VIDNORS:" C=":VIDINVS:USIN 
& "HE C-L: PRINT VIDNORS: 

890 PRINT " ":VIDINVS:CD8C0) :VIDNORS ;CD$C 1): VIDINVS :QDS (0) ;VID 
NORS:QD8(1): 

900 CNTS=CHRS(G)4CHRS C1 4CHRSCAT )+CHRE( 30 )+"AGRSDVQ"+CHRS( 13) 
910 PRINT AFCURSS:FNLOCS(L, C-1,"");:60SUB 1550:1F IC)0 THEN 92 
0 ELSE PRINT BIB$::G0T0 910 

920 PRINT FNLOCS(L, C-1,EFCURS#): :ON I GOT 930,950, 970,990, 119 
0,1210,1240,1280,1310, 1340, 1370, 1400 

990 IF C+ICP€=90 THEN C=C+ICP ELSE PRINT BIB$::60T0 910 

940 EOTO 1470 

960 IF C-ICP)21 THEN C=C-ICP ELSE PRINT BIB$: :6070 910 

960 GOTO 1470 

970 1F L-ILP)=0 THEN L=L-ILP ELSE PRINT BIB$::G0T0 910 

980 GOTO 1470 

990 IF L#ILP{=29 THEN LeLILP ELSE PRINT BIB$::6070 910 

1000 GOTO 1470 

1010 REM TRACE 

1020 IF VD=0 THEN PRINT VIDINVS: :60=1 

1030 1F QD=1 THEN 1040 ELSE SUP#=CSGS+STRINGS (AC-DC-1 ,H$)+CSD 
1INTS=VS4SPACES(AC-DC-1)4V8: INFS=CIG#+STRINGSCAC-DC-1,H$)+C1D$ 
:18OTO 1080 

1040 SUPS=CSBS:FOR N=1 TO NCC:SUP#=SUPS4STRINGS(IC,H$)+ITS$:NE 
XT:MHIDS(SUPS, LENCSUPS), 1)=CSD$ 

1050 INTS=VS:FOR N=1 TO NCC:INTS=INTS#SPACES(IC)+IVS:NEXT:MIDS 
CINTS LENCINTS), 124$ 

1060 INTCS=ITES:FOR N=1 TO NCC: INTCS=INTCS#STRINGS CIC, IH$)+IT8 
NEXT:MIDSCINTCS LENCINTCS), 1)=17D$ 

1070 INFS=CIGS:FOR N21 TO NCC:INFS=INFS+STRINGS CIC, H$)+ITIS:NE 
AT:MIDSCINFS, LENCINFS), D=CIDS 

1080 IF QU=1 THEN 1130 ELSE PRINT FNLOC#(OL,DC-1,SUP#)::1F VO= 
1 THEN NIDSCLS(OL), DC, LENCSUPS ) }=SUPS 

1090 FOR N=DL+1 TO AL-1:PRINT FNLOCS(N,DC-1,INTS)::1F VO=1 THE 
N MIDSCLSCN), DC, LENCINTS))=INTS 

1100 NEXT 

1HO PRINT FNLOCSCAL,DC-1,INF#)::IF VO=1 THEN MIDS(LSCAL),DC,L 
ENCINFS))=INFS 

1120 6070 1180 

1130 PRINT FNLOCSCOL,DC-1,SUP#)::1F VO=1 THEN MIDSCLSCDL) ,DC,L 
ENCSUPS ) )=SUPS 

1140 R=1:FOR N=1 70 NCL:FOR M=1 TO IL:PRINT FNLOCS(DL4R,DC-1,1 
NTSD::1F VD=1 THEN MIDSCLSCDL4R) DC, LENCINTS))=INTS 

1180 ReR#T:NEXT MePRINT FNLOCSCDL4R, DC-1, INTC#)::IF VD=1 THEN 
NIDS(LSCDL4R) ,DC, LENCINTCS))=INTCS 

1160 R=R#1:NEXT N 

1170 ReR-L:PRINT FNLOCSCAL, DC-1,INF#)::1F VO=1 THEN MIDS(LSCAL 
),0C, LENCINFS))=INFS 

1180 ILP=1:;ICP=1 :VO=0:PRINT VIDNORS: :G0TO 910 

1190 REN ANNULE 

1200 GOSUB 1460:6070 850 

1210 REX GARDE 

1220 1F (QD=0 AND NP€2) OR (QD=1 AND NP€3) THEN PRINT BIBS: :60 
10 910 

1230 60=0:NP=0:VO=1:60T0 1010 

1240 REM RETOUR 

1260 CNTS=CNTIS:MESS=AFCURSS :MODS(O)="TEXTE" : MODS (1 )="GRAPH":M 
EMS=" *:GOSUB 700 

1260 IF G0=1 THEN GOSUB 1460 

1270 RETURN 

1280 REM SIMPLE 

1290 PRINT VIDNORS:FNLOCS (31,45 CD8C1)) :VIDINVS:FNLOC#(31,29,C 
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D$(0)):VIDNORS ; :CD=0:G0SUB 1480 

1300 6070 910 

1310 REM DOUBLE 

1320 PRINT VIONORS:FNLOC#(31,29,CD$(0)) VIDINVS:FNLOC#C31,45,C 
D$C1)):VIDNORS : :CD=1 :60SUB 1480 

1330 60TQ 910 

1340 REM VIDE 

1350 PRINT VIDNORS:FNLOCS(31,69,QD$(13):VIDINVS:FNLOC#(31,61,Q 
D$(0)) : VIDNORS : : QD=0 

1360 GOTD 910 

1370 REM QUADRILLAGE 

1380 PRINT VIDNORS:FNLOCS(31,61,0D$(0)) :VIDINVS:FNLOC#(31,69,Q 
D$C1)):VIDNORS : :QD=1 

1390 G6QTD 910 

1400 REM FIXE POINT 

1410 IF GD=1 THEN PRINT BIB$::G60T0 910 

1420 IF NP=0 THEN NP=1:OL=L:DC=C:PRINT FNLOCSCE,C-1,C$G$); : GOT 
0 910 

1430 IF L<=DL OR C<=DC THEN PRINT BIB$::G0TO 910 

1440 IF NP=1 AND QD=1 THEN PRINT FNLOCS(L,C-1,IT$)::NP=2:ILP=L 
-DL:ICP=C-0C:ILSILP-1:1C=ICP-1:60T0 910 

1450 NP=3:AL=L'AC=C'NCC=(AC-DC)/ICP:NCL=(AL-DL)/ILP:60T0 1010 
1460 FOR N=DL TO AL:PRINT FNLOC$CN,DC-1,MID$(L$CN) ,DC,AC-DC+1) 
}::NEXT!RETURN 

1470 60SUB 650:60T0 910 

1480 " 

1490 IV$=CHR$(149): IH$=CHRS(154) : IT$=CHRS(159) 

1500 IF CD=1 THEN 1530 

1510 CSDS=CHRS( 156): CIDSECHRSC153) : CSBS=CHRS( 150) :CIG$=CHRS( 14 
T)EHS=CHRSC1S4) : VS=CHRS (149): ITSS=CHRS( 158): ITIS=CHRSC 155): ITD 
$=CHRSC157): ITGS=CHRS( 151) 

1520 RETURN 

1530 CSD$=CHRSC 140) :CIDS=CHRS (137): CSGS=CHRSC 134) :CIGSZCHRS(13 
1): H6aCHRS( 138) !VS=CHR# (133): ITSS=CHRS (132) : ITIS=CHRS(129) : [TD 
$=CHRS(136) : ITG$=CHRS( 130) 

1540 RETURN 

1550 * 

1560 IS=INKEYS:IF I$="" THEN 1550 ELSE I=INSTR(CNTS ,UPPERS(I$) 
) RETURN 

1570 RETURN 

1580 REM lecture et affichage d'un tableau dans un progranne b 
asic 

1590 INPUT "fichier":F$:F$=F$+",TBL" 

1600 PRINT CHR$(27)"E" OPEN "I" ,#1,F$:FOR N=0 TO 29: INPUT #1, 
P,L$:PRINT CHR$(27)"Y"CHRS(32+N)CHR$(324P)L$: :NEXT CLOSE 

1610 REN 
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PROGRAMME BASIC 


| 
ce] PAR AL TT 


CERERATEUR DE GRILLES SIMLES 


JEU/VIE PRATIQUE 






a LOTO SYSTEM 
TT an 
| 


| 
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Figure 2 


e premier souci d’un joueur, lorsqu'il coche les 

grilles d’un bulletin simple, est de répartir 
convenablement ses numéros. Mais bien souvent, ce 
mélange réalisé plus ou moins au hasard, est source 
de déception lors des tirages. 
LOTO SYSTEM’, générateur de grilles 
simples, aide à résoudre efficacement le 
problème posé. 
Nous précisons toutefois que, 
malheureusement, nous ne fournissons 
pas les numéros gagnants. Pour les 
‘probabilités de sortie‘‘ et autres Figure 1 
‘pronostics, consultez votre quotidien 
habituel ou une revue spécialisée. 


Ce programme travaillant uniquement à 
partir de ce que vous lui ferez ‘‘ingérer‘, 
la garantie offerte sera la suivante (à 
partir de trois bons numéros sortis au 
tirage) : 

8 systèmes sur les 12 proposés, assurent 
AU MINIMUM une ou plusieurs fois le 

5‘ rang et cela sans mise de fond excessive. 


Seul un des systèmes à 12 N° avec une mise de 
132,00 francs peut paraître un peu plus onéreux, il 
pourra toutefois être utilisé par des joueurs se 
regroupant, car il donne une garantie extrêmement 
élevée compte tenu de la somme engagée. (Songez 
que, 10 numéros avec un bulletin multiple coûte 
210,00 francs.) 


PRESENTATION 


- Après deux pages de présentation, le menu (figure 1) 
apparaît, vous effectuerez votre choix en appuyant 
sur l’un des chiffres (1 à 7). 


e pes ces eeux , Le Ro compté 
pe voire aise en appuyant sur La touche concernée 


Lhsire 
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TOUJOURS PLUS RICHE 
AVEC LE PCW... sacs 


- Précisez ensuite si les combinaisons doivent être 
réalisées avec vos propres numéros ou avec ceux de 
l'ordinateur (figure 2). 

- Que vous utilisiez des numéros personnels, en 
entrant ces numéros dans un ordre croissant figure 3), 


CHBIEN RE JOLEREZ-VOUS ? 
touches Me joués 





ou que vous laissiez le PCW les tirer à votre place, 
avec la possibilité de changer ce tirage (figure 4), 
l'affichage sera réalisé dans le bandeau placé sous le 
titre. 


Lorsque votre choix est fait, et après chargement du 
fichier correspondant, apparaissent à l'écran les 
tableaux de garanties correspondant au nombre de 
numéros joués (figure 5). 

Dans la colonne de gauche le nombre de bons 
numéros que vous pourriez avoir et, sur chaque 
ligne correspondante, le nombre de fois minimum 
où vous toucherez le rang correspondant. Bien 
évidemment, si vous êtes très chanceux cette 
garantie sera largement améliorée. Il n’est pas 


- Appuyez sur la touche 1 ou 2 pour choisir votre 
mise, les grilles sont alors affichées sur votre écran 
(figure 6), il ne reste qu’à glisser une feuille dans 
l'imprimante si vous le désirez et, après sortie du 
listing (figure 7), à cocher vos grilles de LOTO. 


ORGANISATION GENERALE 
DU PROGRAMME 


LOTO SYSTEM’ est constitué de trois programmes et 
huit ‘‘fichiers‘* utilisables sous basic. Vous devrez 
apporter le plus grand soin lors de la saisie de 
l’ensemble, ET SURTOUT RESPECTER LA 
NUMEROTATION DES LIGNES, en effet tout est 
‘‘chaînés‘* selon les besoins du programme, la 
moindre erreur risque de créer un superbe plantage. 
Idem pour les datas de chacun des fichiers, prenez 
votre temps ! Nous avons passé des dizaines d'heures 





à tester et mettre au point ce 
logiciel, alors TAPEZ CALMEMENT et 
n'intervertissez surtout pas les 
chiffres car les résultats risquent de 
ne pas s’en remettre. 


La fonction des divers programmes 
est résumée brièvement ci-dessous: 


LOADER.BAS charge le fichier 
“REDEFINI.CAR‘, dimensionne les 
divers tableaux, affiche la page titre. 
Le fichier ‘‘REDEFINI.CAR"‘‘ 
(redéfinition de caractères) pourra 
être obtenu, soit avec le programme 
MATRIX paru dans l’Echo N°4 en 
utilisant la feuille de caractères jointe 
(listing N°4), soit à l’aide de 
MATRIX2 (voir Echo N°9), il suffira 
d'entrer numéros de caractères et codes 
correspondants (listing N°5). 





9 Numéros *#+t MISE 


liste des numéros joués: 
4 12 16 19 21 25 31 35 


12 Francs 


grille 
grille 
grille 
grille 
grille 
grille 


12 
12 
12 
16 
16 
19 


16 
16 
21 
25 
19 
21 


13 
21 © 
25 : 
31 
25 


31 3 


grille 
grille 
grille 
grille 
grille 1 
grille 1 


4 
4 
4 
4 
2 
2 


PROGLOTO.BAS affiche les pages de présentation, 
divers menus pour une bonne utilisation du logiciel, 
mémorise les variables (numéros, jeu, etc...) utilisées 
dans les grilles, charge le fichier “‘J.FIC“ 
correspondant au système choisi. 


PROGAFFI.BAS est appellé par ‘‘J.FIC‘‘, ce 
pragramme commun à tous les sytèmes de jeu, 
dessine les tableaux de garanties, permet de choisir 
les mises, affiche les grilles à l’écran, assure les sorties 
sur l'imprimante et permet éventuellement de rejouer. 


J8.FIC à J16.FIC : ces 
sept ‘‘fichiers‘" contien- 
nent toutes les données 
nécessaires au position- 
nement des numéros 
joués dans chacune des 
grilles éditées. Ces pro- 
grammes sont en fait 
la base du logiciel, 
chaque ligne, chaque 
chiffre, chaque signe 

a son importance 
donc veillez à les 
réspecter SCrupu- 
leusement. 
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Désirez-vous une sortie sur iaprinante ? touche (Bjui où (Non 





























Figure 3 













PREPARATION 
DE LA DISQUETTE 


Placez une disquette dans le 
lecteur A et formatez-en une face 
à l’aide de DISCKIT. 


Remplacez votre disquette par la 
disquette système (face N°2) et 
tapez ce qui suit : 















Fi 4 
sb PIP (return) 
Retirez la disquette système et remplacez-la Does : (return} 
par votre disquette, face formatée vers MA (return) 
l'écran, puis tapez : M:=PIP. (return) 
| M:= *.EMS (return) 















A:=M:*.* 


Après avoir tapé DIR, si tout est correct, vous 
retrouverez sur votre disquette les fichiers suivants : 


(return) 







ee : BASIC.COM 
Vous allez à présent pouvoir effectuer la SUBMIT.COM 
saisie des différents listings, commencez par PIP COM 
charger le basic en tapant : J14FCPM3.EMS 






















A) BASIC (return) 


Chaque programme sera sauvegardé indépendamment 
sur la disquette avec le nom qui figure dans les REM 
du début. (respectez l'orthographe pour éviter un 
problème de chargement). 


AUTOMATISATION DU LANCEMENT 


Créez enfin le dernier fichier PROFILE.SUB, qui 
chargera et lancera votre programme. Si vous faites 
encore partie de ceux à qui cela pose un problème, 
reprenez le N°9 de l’Echo (page 17), Marc HERMION 
vous dévoile les charmes cachés de cet indispensable 


fichier. 
Figure 5 


Vous taperez les instructions 
suivantes : 





PIP 








. (M: = A:*.FIC 
Et maintenant, une (M:=A:".BAS 
dernière vérification. ( 





Tapez DIR, et 
comparez votre écran 
avec la figure 

Tout y est ?.. Bravo !! 
et BONNE CHANCE pour vos 
futurs jeux. 


BASIC LOADER 








LOTO SYSTEM’ + L'ECHO DU PCW N°11 


PROGRAMME BASIC 


Caractères à redéfinir (Utilisation avec MATRIX 2, Echo N°9) 


(voir programme MATRIX Echo n°4) 


ONE codes des matrices 





LOTO SYSTEM’ * L'ECHO DU PCW N°11 50 


10 : 

20 REM tHHRXX tri 
30 : 

40 esc$=CHRS(27):cls$=esc$+"E"+escé+ "HU: DEF FNcub(x,y)=escé+"Y 
"HCHRS(32+X)+CHRS(32+y) :invé=esc$+"p' inor$=esc$+"q" :bip$=CHRS( 
TEPRINT esc$+"j"iescé+"f"iescé+"0" 

50 PRINT c1s$:DIM ni(792),nj(163,n(16) ,m(16),vn(49),v1(49) ,nvt 
49),ce$(3) ,ca$(14) MEMORY &HBFFE :RESTORE 

60 FOR n=&HC070 TO &HCO9B:READ d8,POKE n,d8:NEXT 

70 non$="arredefini ,car":OPEN "R",1,nom$,l'FIELD #1,1 AS z$ 

80 c=&HCO70:FOR n=32 TO 217:POKE 8HC099,n:FOR n2=1 TO 8:GET #1 
1POKE &HCO9S+n2 ,ASC(z$):NEXT:CALL c'NEXT CLOSE 

90 PRINT inv$:PRINT FNeu$(7,28)CHR$C134)STRINGS$(33, 138)CHR#C14 
O):FOR y=8 TO 22:PRINT FNcu$(y,28)CHR$(133)STRINGS(33,32)CHR$( 
133):NEXT:PRINT FNcu$(23,28)CHR$(131)STRINGS(33, 138)CHR$(137) 
100 p#=" Kagésoft vous présente" :y=9:G0SUB 130:FOR x=30 TO 44: 
READ c,d'PRINT FNcu$(13,x)CHRS(CD: PRINT FNcu$(14,x)CHR$(d):NEX 
T:FOR x=47 TO GO:READ c'PRINT FNcu$(14,x)CHR$CC):NEXT PRINT FN 
eu$(13,61)CHR$#(217) 

110 PRINT FNcu$(13,53)CHR$C177)CHR$C178)FNcu$( 15, 49)CHR$(189)C 
HR$C190) :p$="GENERATEUR DE GRILLES SIMPLES": y=17:G0SUB 130:p#= 
CHR$C175)+CHR$(176)+" Kagésoft - Echo du PCW":y=21:60SUB 130; 
PRINT nor$ 

120 CHAIN MERGE "n:progloto,bas",10,ALL 

130 x=(90-LEN(p#))/2:PRINT FNeu$(y,x)p$:RETURN 

140 DATA 243,62,129,211,241,62,130,211,242,175,95,103,22,184,5 
8,153,192,111,41,41,41,26,17,164,192,235,1,8,0,237,176,62,133, 
211,241,62,134,211,242,251,201 

150 DATA 164,165,167,169,32,170,164,165,166,169,166,165,167,16 
8,164,32,166,166,166,168,167,32,164,165,166,169,166,165,167,16 
8 


listing No | - loader bas 


160 DATA 171,172,173,174,171,172,179,180, 181,182, 183,184, 185,1 
86 


O O OO AZERTY 


cours complet de dactylographie 
pour la maîtrise du clavier Azerty 


une méthode unique 
comprenant plus de cent exercices 
progressifs en rythme et en difficulté 


10 : 

20 REM K4* 
30 : 

40 escé=CHR$(27):cls$=esc$+"E"tescé+"H" DEF FNcuf(x,y)=escé+"V 
"ACHRS(32+x)+CHRS (324) :invé=escé+"p'inor$sesc$+"q": bip$=CHRS( 

T):PRINT esc$+"j"iescé+"f"escé+ "0": IF rj=l THEN rj=0:6070 280 
ELSE PRINT cis$:G60SUB 850 

50 : 

60 REM Xt* titre, présentation et choix des jeux #4 

70 ; 

80 c=187:d=193:FOR x=2 TO SPRINT FNcu$(0,x)CHRS(C)FNcuS(t x) 

HR$Cd):re=c+lid=d+l:IF c<)189 THEN 90 ELSE c=191 

90 NEXT'af1#=CHR$(197 )+CHRSC198)+CHR#C199)+CHRS(200)+CHR# (201 ) 

+CHR#(202) : af 28=CHR$(203)+CHR$ (204 )+CHR$ (205 )+CHRS(206 )+CHR#( 2 

07)+CHR$(208) 

100 FOR xz6 T0 78 STEP 6:PRINT FNeu$(0,x)afl$FNcu$(1 ,x)af2$:NE 
XT:c=209:d=213:FOR x=84 TO 87:PRINT FNeu$(O,x)CHR$CC)FNcuS( 1, x 
)CHRS(d):c=c+ld=d+l :NEXT 

110 PRINT FNcu$(2,4)CHR$(134)STRING#(80,138)CHR$(140):FOR y=3 

TO S:PRINT FNcu$(y,4)CHR$(133) invéSTRINGS(80, 32)nor$CHR$(133): 

NEXT:PRINT FNcu$(6,0)CHR$C134)STRING# (3, 138)CHR$(139)STRINGS (8 

0,138)CHR$C139) PRINT FNcu$(6, 86)STRINGS$(3, 138)CHR$(140) 

120 PRINT FNcu$(7,0)CHR$(133)SPC(88)CHR$(133) PRINT FNcu$(8,0) 

CHRSC131):FOR x=1 TO B8:PRINT FNeu$(8,x)CHR#CI38):NEXT PRINT F 

Neu$(8,89)CHR$(137) 

130 FOR x=14 TO 28:READ c,d'PRINT FNcu$(3,x)invéCHR$Cc ) PRINT 

FNcu$(4,x)CHR#(d):NEXT 

140 DATA 164,165,167,169,32,170,164,165,166,169,166,165,167,16 

8,164,32,166,165,166,168,167,32,164,165,166,169,166,165,167,16 

8 


listing No 2 - PROGLOTO,BAS ki 


150 FOR x=30 TO 43:READ c!PRINT FNcu$C4,x)CHRSCC):NENT PRINT F 
Ncu$(3, 40)CHRS(217) 
160 DATA 171,172,173,174,171,172,179,180,181,182, 183,184, 186, 1 








Mettez toutes les chances de votre côté avec AZERTY 
c'est un logiciel LOG/STICK distribué par D.D.I. 
en vente chez votre revendeur spécialiste PCW 
Renseignements (1) 48.67.28.44 + 


170 PRINT FNeu$(3,36)CHR$(177)CHR$(178)FNcu$(S,32)CHR$(189)CHR 
SC190)FNcu$C4,48)CHRS(175)CHRS(176)"1987 Kagésoft-Echo du PCV 
‘nor$:p#="PROGRAMME POUR JEUX SIMPLES" :y=7:G0SUB 840 

180 p$="Que vous participiez régulièrement ou non, au LOTO NAT 
IONAL, vous aurez un jour le":y=11:60SUB 840:p#="bonheur de vo 
ir 5 ou 6 de vos nunéros sortir lors d'un tirage, ":y=12:60SUB 

840 

190 p#z="Bonheur se transformant très vite en désappointenent 1 

orsque, après vérification, vous":y=14:60SUB 840 :p#="découvrez 
que ces nunéros sont répartis au hasard dans les différents j 

eux,":y=15:6DSUB 840 

200 p#="Avec un peu de chance vous obtiendrez peut-ètre 3 nuné 
ros,,,Mais quelle déception !,,,":y=17:60SUB 840 :p$="L0TO syst 

en' à été conçu pour résoudre totalement ce genre de problène 

s,":y=19:G0SUB 840 

210 p$="Que ce soit avec vos numéros favoris, ou avec ceux cho 
isis par Le PCW, ce générateur":y=21:60SUB 840:p$="de grilles 

travaille à partir d'un progranne nathéaatique performant, Po 

ur une nise":y=22:60SUB 840 

220 p$="niniaun, vous pourrez obtenir des jeux siaples offrant 
une garantie saxinun,":y=23:G60SUB 840:p$=" DANS LA MAJORITE D 

ES GRILLES, GAIN À PARTIR DU 5ème RANG (3 numéros) ":y=26:60SU 

B 840:60SUB 760 

230 p#="Pour chaque systène de jeu - affichage des tableaux de 
garanties correspondants aux" :y=10:60SUB 840:p#="diverses nis 

es possibles! (entre 4 et 132 francs selon le nonbre de nunér 

os)":y=11:60SUB 840 

240 p$="Vous pourrez ainsi effectuer des comparaisons et chois 

ir le jeu qui vous senbleras le":y=13:G0SUB 840:p$="nieux adap 

té à votre budget, Une sortie sur imprimante est également pré 

vue afin":y=14:G0SUB 840 

250 p$="d'obtenir un meilleur confort visuel lors de la recopi 

e des grilles éditées, ":y=15:60SUB 840:p$="Il ne vous reste na 

intenant qu'à ne donner vos nunéros, ou ne laisser les choisir 
à":y=18:60SUB 840 

260 p#="votre place, Si nous sonnes veinards tous les deux, vo 

us verrez conne non programme est":y=19:G60SUB 840:p#$="efficace 
| Sinon,,, nous pourrons toujours recommencer au prochain tir 

age !,,,":y=20:60SUB 840 

270 p$=" A VOS JEUX ET,,,, BONNE CHANCE !":y=25:60SUB 840 :G0SU 

B 760 

280 p#$="COMBIEN DE NUMEROS JOUEREZ-VOUS ?":y=10:G0SUB 840 :p$= 
“touches No joués":y=12:G60SUB 840:p$=" - 1 - ,,,,,,8 "y 
14:60SUB 840:p$=" - 2 - ,,,,,,9  ":y=15:G0SUB 840:p#=" - 3 - 
vor 10  ":ys16:60SUB 840 

290 p#=" - 4- ,,,,,,11 "'y=17:60SUB 840:p#=" - 5 - ,,,,,,12 

“iys18:GDSUB 840:p$=" - 6 - ,,,,,,15 ":y=19:GOSUB 840:p$= 

U-7-,,,,,,16 ":y=20:60SUB 840 


300 PRINT bip$:p#="appuyez sur la touche concernée !":y=22:PRI * 


NT inv$é:60SUB 840:PRINT nor$ 

310 Lé=INKEYS:IF t$="" THEN 310 ELSE t=ASC(té) PRINT FNcu$(0,0 
1bip$ 

320 IF +238 OR t=49 THEN cj=8:60T0 360 ELSE IF t=50 OR t=123 T 
HEN cj=9:60T0 360 

330 IF t=34 OR t=51 THEN cj=10:60T0 360 ELSE IF t=39 DR t=52T 
HEN cj=11:60T0 360 

340 IF t=40 OR t=53 THEN cj=12: 6070 360 ELSE IF t=54 OR t=93T 
HEN cj=15'G0TO 360 

350 IF t=55 OR t=125 THEN cj=16:60T0 360 ELSE 310 

360 6OSUB 800:p#="Utiliserez-vous des numéros personnels ( 1 ) 
fiyst2:60SU8 840:p$="Ou préférez-vous des numéros choisis par 

votre PCW ( 2 }':y=14:60SUB 840 

370 PRINT bip$:p$="appuyez sur la touche concernée !":y=18:PRI 
NT inv$:GOSUB 840:PRINT nor$ 

380 t$=INKEYS:IF t$="" THEN 380 ELSE t=ASC(t$): PRINT FNcu$(0,0 
Jbip$:1F t=38 OR t=49 THEN 420 ELSE IF t=50 OR t=123 THEN 500 


ELSE 380 

390 : 

400 REM XYXX 
410 ; 

420 GOSUB 800:PRINT FNcu$(7,3)STRING$(80,32):PRINT FNeu$(7, lc 
i"Nunéros choisis! "FNcu$(12,0)inv$" Veuillez entrer vos numéros 
dans un ordre croissant! "nor$:x=22:FOR n=1 T0 tj 

430 PRINT FNeu$(12,54) "Numéro" sn: "INPUT vn 

440 IF vnél OR vn>49 THEN PRINT FNcu$(12,64)STRING$(4,32)bip$: 
GOTO 430 

450 nvCn)zvn PRINT FNcu$(7,x)bip#ivnixzx+3:PRINT FNcu$(12,64)S 
TRIN6$(4,32):NEXT 

460 PRINT FNeu$(12,0)STRING#(70,32)FNcu$(0,0):60T0Q 620 

470 : 

480 REM 244 
490 : 

500 GOSUB 800:PRINT FNcu$(7,3)STRING$(80,32):PRINT FNcu$(7,l)c 
j"Nunéros choisis!":z=1:x=22:F0R n=1 T0 cj:vl(n)=0:NEXT PRINT 

FNcu$(15,29)inv$" appuyez sur une touche au hasard " 

510 LS=INKEYS:IF t$="" THEN 510 ELSE t=ASCCLS):t=tK10 : RANDOMIZ 

E t'PRINT FNcu$(15,28)nor$STRING$(50, 32) 

520 FOR n=1 TO cj 

530 vnCn)=INTCRND#49)+1 

540 n=1'FOR i=1 TO cj:IF vl(m)=vnn) THEN 530 ELSE n=n+1l'NEXT 

550 n=n:vl(m)=vnCn):NENT 

560 FOR a=1 TO 49:FOR j=1 T0 cj 

570 IF n=vn(j) THEN PRINT FNcu$(7 ,x)bip$a:x=x+3:nv(z)=a 2224] 

580 NEXT j,m:PRINT bip$:p$=" Ces numéros vous conviennent-ils 
? touche (N)on ou (Oui * 

590 PRINT FNeu$(12,16)inv$p$:PRINT FNcu$(12, 16)nor$p#:t$=INKEY 
$:IF t$="" THEN 590 ELSE t=ASC(t$) 

600 IF t:78 OR t2110 THEN PRINT FNcu$(12,4)STRING#(82,32) :PRIN 
T FNcu$(7,22)STRING$(60,32):x=22:FOR z=1 TO cjnv(z)=0:NEXT'z= 
1:60T0 520 ELSE IF t=79 OR t=111 THEN 610 ELSE 590 

610 PRINT FNcu$(12,1S)STRING$(62,32)FNcu$(0,0) 

620 : 

630 REM # charge systène de jeu correspondant au choix * 

640 

650 IF cj=8 THEN p$="n:j8,fic" 

660 IF cj=9 THEN p$="n:j9,fic" 

670 IF cj=10 THEN p$="n:j10, fic" 

680 IF cj=11 THEN p$z"a:jll fic" 

690 IF cj=12 THEN p$="n:j12,fic" 

700 IF cj=1S THEN p$="a:j15,fic" 

710 IF cj=16 THEN p$="m:j16,fic" 

720 CHAIN MERGE p$,50,ALL DELETE 10- 

730 : 

740 REM * attente d'une touche pour changement de page * 

750 : 

760 PRINT bip$:WHILE INKEY$="":PRINT FNcu$(30,26)inv$" Appuyez 
sur une touche pour la suite ":FOR i=1 TO IO0:NEXT: PRINT FNcu 

$(30,26)nor$" Appuyez sur une touche pour la suite ":FOR i=1 T 

O 100:NEXT:WEND 

770 : 

780 REM X efface la page avant nouvel affichage * 

790 : 

800 FOR y=29 TO 8 STEP-1:PRINT FNcu$Cy,O)STRING$(89 32):NEXT:R 

ETURN 

810 ; 

820 REM X centrage des lignes de texte pour affichage * 

830 : 

840 x=(90-LEN(p$))/2:PRINT FNcu$(y,x)p$ RETURN 

850 : 

860 REM X tracé des tableaux de garanties * 

870 : 

880 ce$(1)=STRINGS(4,154)+CHR$( 158) :ce$(2)=STRINGS (4; 32)+CHR$ 


entrée des numéros personnels + 


tirage des nunéros par l'ordinateur  ##* 


W9):ce$(3)=STRINGS (4, 154)+CHR$C1S5) : ca$(1)=CHRS(1GO)+STRINGS( 
11,154)+CHR$(156):ca$(2)=CHR$(149)+"MISE F"+CHRSC1493+CHR 
$(165) 
890 ca$(3)=CHR$C149)+" No"+CHRS(149)+CHR$(165):ca$(4)= 
CHRSCIST)4STRINGSCTT ,1S4)+CHRS(TSS)+STRINGSCT4, 154)+CHR$(156): 
ca$(5)=CHRSC149)+"RAPPORT MINIMUM PAR GRILLE"+CHR$(149)+CHR$(1 
65) 
900 ca$(6)=CHRSCIST)+STRINGS(E, 154)+CHR$(158)+STRING#C19,154)+ 
CHR#C1S7)+CHR# (165): ca$(7)=CHR$(149)+"sortie"+CHR$(149)+" 

rang "+CHRSC1AS)+CHRS( 165) ca$(8)=CHR$(149)+"tirage"+ 
CHR#C1A9)+" 5 4 3 1 "+CHRS(149)+CHRS(165) 
910 ca$(J)=CHRSCIST)+STRINGS(E, 154)+CHR$(159)+ce#(1)+ce$(1)+ce 
#CL)4STRINGS(4,154)+CHR$C157)+CHRSC1ES ) :ca$(10)=CHRS(149)+" 3 
No "+CHRS(149)+ce$(2)+ce$(2)+ce$(2)+ce$(2)+CHR$(165) :ca$(11)2C 
HRSC149)+" 4 No "+CHR#(149)+ce$(2)+ce$(2)+ce$(2)+ce$(2)+CHR$(1 
65) 
920 ca$(12)=CHR$(149)+" 5 No "+CHRS(149)+ce$(2)+ce$(2)+ce$(2)+ 
ce$(2)+CHR#C166):ca$(13)=CHR$(149)+" 6 No "+CHRS(149)+ce$(2)+c 
e$(2)+ce$(2)+ce$(2)+CHR$(16S) :ca$(14)=CHRS(147 )+STRING#(6,154) 
+CHRC1S5)+ce$(3)+ce$(3)+ce$(3)+STRINGS(4,154)+CHR$C153)+CHRS( 
165) 
930 RETURN 


10 : 

20 REM listing No 3 - sauvegarder avec Le nom “PROGAFFI BAS" 
30 : 

40 escé=CHR$(27)'cls$=esc$+"E"+escé+"H" DEF FNcu$(x y)sescé+"Y 
MCHRS(32+x)+CHR$C324y) tinvé=esc$+"p"inor$=esc$+"q":bip$=CHRS( 
T''PRINT esc$+"j"resc$+"f":escé+"0":dg=0 

100 LS=INKEYS: IF t$="" THEN 100 ELSE t=ASCCLS) PRINT FNcu$(0,0 
lbip$ 

140 G0TO 100 

900 

910 REM ##* affichage des grilles sur L'écran KKX 

920 : 

930 GOSUB 6000:rg=l:x1=15:x2=67:y=10:yI= 10: FOR i=1 TO nise:IF 
(nise=12 AND i)=7)0R(mise=16 AND i>=9)0R(mise=30 AND i)=16)THE 
N 940 ELSE PRINT FNcu$(y,0)"grille No"i:GOTO 950 

940 PRINT FNeu$(y1,52)"grille No"i:dg=1 

960 FOR gr=1 TO 6:READ j'G0SUB 970:NEXT:x1=15:x2=67:1F dg=1 TH 
EN yl=yl+1:60TD 960 ELSE y=y+] 

960 NEXT:GOTO 1010 

970 FOR lecn=l TO 49 

980 IF dg=1 AND lecn=nv(j) THEN PRINT FNcu$(yl,x2)USING"###" in 
véj)ix2=x2#4ini(rg)=nv(j}:rg=rgt+l :RETURN 

990 IF dg=0 AND lecn=nv(j) THEN PRINT FNcu$(y, xl )USING"###" nv 
(jhixtexl#initrg)snv(j):rg=rg+1 RETURN 

1000 NEXT 

1010 PRINT FNcu$(28,0)bip$"Désirez-vous une sortie sur inprina 
nte ? touche (Oui ou (Non 

1020 LS=INKEYS IF t6="" THEN 1020 ELSE t=ASCCt$) 

1030 1F t=79 OR t=111 THEN 6050 ELSE IF t=78 OR t=110 THEN 104 
O0 ELSE IF t=70 OR t=102 THEN PRINT FNcu$(28 ,0)bip$STRING$(90,3 
2):60T0 6090 ELSE 1020 

1040 PRINT FNcu$(28,0)STRING$(90,32):PRINT FNcu$(28,0)"racopie 
z vos grilles et appuyez sur { F > lorsque vous aurez terminé 
{":6070 1020 

100 : 

1110 REN ##X trace les divers tableaux de garanties #XX 

1120 : 

1130 IF cj<lS THEN x1=14:x2=48 ELSE x1=32 

140 y=9:FOR i=1 TO LE PRINT FNeu$(y,xl)invéca$(ibnor$:IF cj>= 
15 THEN 1150 ELSE PRINT FNcu$(y,x2)inv$ca$(i)nor$ 

60 y=y+1'NEXT 

1160 PRINT FNcu$Cy,x1+1)STRINGS(28,165):IF cj>=15 THEN 4000 
LSE PRINT FNeu$ly,x1+1)STRINE# (28, 165)FNcu$(y,x2+1)STRINGS(28, 
165) 


4000 : 

4010 REM *X* affichage rapports/No sortis et divers KKX 

4020 : 

4030 RESTORE 4060:FOR i=1 TO v'READ y,x,n'PRINT FNcu$(y,x)inv# 

ninor$NEXT:IF cj=15 OR cj=16 THEN pl$=" ce tableau ":G0TO 404 

0 ELSE pl$=" ces tableaux * 

4040 PRINT FNcu$(24,3)"Le 2ène rang ne figure pas dans":pl#1", 
le No complénentaire n'étant pas retenu," 

4050 PRINT FNcu$(25,17)"Choisissez votre mise en appuyant sur 
la touche concernée" :RETURN 

5000 x=(90-LENCp$))/2:PRINT FNcu$(y,x)p$'RETURN 

6000 FOR y=29 T0 8 STEP-1:PRINT FNcu$(y,O)STRING#(90, 32) :NEXT: 
IF f=1 THEN RETURN ELSE IF nise=132 THEN 6010 ELSE FOR y=10 TO 
26: PRINT FNeu$(y,45)CHRSCT4S):NEXT PRINT FNcu$(26,0)STRING#(9 

0,154) RETURN 

6010 PRINT bip$'p#="En raison du nombre inportant de grilles à 
recopier, l'affichage écran est suppriné":y=10 G0SUB 5000 'p$= 
“Appuyez sur une touche pour la sortie sur inprinante":y=12:60 
SUB SOOO:WHILE INKEY$="": VEND 

6020 : 

6030 REM xkX sortie des grilles sur imprimante X4X 

6040 ; 

6050 LPRINT TAB(20)cj" Numéros ##* MISE “nise" Francs" :LPRINT: 

LPRINT TAB(S)"liste des numéros joués':":IF nv(1)€=9 THEN espzi 
ELSE esp=4 

6060 LPRINT TABlesp)::FOR i=1 TO cj:LPRINT USING"###" nv0i)sN 

EXT:LPRINTLPRINT gra! :cg=l 

6070 IF gr>mise THEN t$="":GOTO 6090 ELSE LPRINT TAB(3)"grille 
MUSING"#H#" gr: :LPRINT SPC(2)::FOR i=cg TO cg+5:LPRINT USING 
MHHiniCi)sNEXT igr=grtlicg=cgt6: IF gr(zmise THEN LPRINT TAB( 

40) "grille ":USING"###" gr LPRINT SPC(2); 

6080 FOR i=cq T0 cgtS:LPRINT USING"###"ini(i)::NEXT gr=gr+l:cq 

=cgt6:IF gr<=miset} THEN 6070 

6090 : 

6100 REM XXX nouvelles grilles ou fin de progranne #X4 

6110 : 

6120 FOR a=1 TO 4'LPRINT'NEXT:f=1:60SUB 6000:F=0:PRINT bip$:p# 

='Désirez-vous effectuer d' autres jeux ? touche (O)ui ou (N) 

on":y=16:G0SUB 5000 

6130 t$=INKEYS:IF t$="" THEN 6130 ELSE t=ASC(té):IF t=78 OR t= 
110 THEN 6150 ELSE IF t=79 OR t=111 THEN f=1:G60SUB 6000:f=0:PR 
INT FNcu$(7,1)STRING$(86,32) :p#="PROGRAMME POUR JEUX SIMPLES"; 

y=7:60SUB 5000:rj=1:CHAIN MERGE “n:progloto, bas", 10, ALL ,DELETE 
900- 

6140 6070 6130 

6150 PRINT cls$esc$+"e"bip$ END 


50 : 

60 REM * grilles 8 nunéros - nises 4 et 12 fr, - J8,FIC * 

70 ! 

80 CHAIN MERGE"n:progaffi,bas",10,ALL DELETE 80 

90 v=13:60SUB 1100:p#="1 - Nise ! francs" 1527: 60SUB 5000:p$= 
"2 - Mise 12 francs" :y=28:60SUB 5000:PRINT bips 

110 IF t=38 OR t=49 THEN mise=4'RESTORE : 6070 900 


120 IF t=50 OR t=123 THEN nise=12:RESTORE 160:6070 900 

160 DATA 1,2,3,4,5,6,1,2,3,4,7,8,1,2,5,6,7,8,3,4,5,6,7,8 

160 DATA 1,2,3,4,8,6,1,2,3.4,5.7.1 2,94 88,1,2,94.6.7,1,2,3 
4,8,8,1,2,8,4,7,8,1,2,5,6,7,8,1,3,5,6,7,8,1,4,5,6,7,8,2,3,5.6 
7,8,2,4,5,6,7,8,3,4,5,6,7,8 

4060 DATA 10,21,4,10,54,12,11,18,8, 11.49, 8,18,22,1,18,66,4,19, 
56,8,19,61,2,20,56,4,20,61,7,20,66,1,21,61.6,21,66 8 

50 : 


60 REX X grilles 9 nunéros - nises 12 et 30 fr - J9,FIC à 
70 ; 
80 CHAIN MERGE"m'progaffi,bas",10,ALL,DELETE 80 


90 v=21:60SUB 1100:p$="1 - Mise 12 francs" :y=27:60SUB 5000 :p$= 
“2 - Mise 30 franc$":y=28:60SUB S000:PRINT bips 
110 IF t=38 OR t=49 THEN mise=12:RESTORE: 6070 900 


120 IF t=50 OR t=123 THEN nise=30:RESTORE 160:60T0 900 

10 DATA 1,2,8,4,6,6,1,2,8,4,7,9,1,2,9,,7,8,1,2,2,6,8,9,1,2,5 
6,7,9,1,3,4,5,8,9,1,3,6,7,8,9,1,4,5,6,7,8,2,3,4,6,7,8,2,3,5,6 

892467893.46.6.79 

160 DATA 1,2,3,4,5,6,1,2,3,4,5,7,1,2,3,4,5,8,1,2,3,4,5,9,1,2,3 

4,6,7,1,2,3,4,6,8,1,2,3,4,6,9,1,2,3,5,6,7,1,2,3,5,6,8,1,2,3,5 

6,9,1,2,3,7,8,9,1,2,4,7,8,9,1,2,8,7,8,9,1,2,6,7,8,9,1,3,4,7,8 

9,1,8,8,7,8,9,1,3,6,7,8,9,1,4,5,6,7,8 

170 DATA 1,4,5,6,7,9,1,4,5,6,8,9,2,3,4,7,8,9,2,3,5,7,8,9,2,3,6 
7,89,2,,8,6,7,8,2,4,8,6,7,9,2,4,5,6,8,9,3,4,5,6,7,8,3,4,5,8 
1,9,3,4,5,6,8,9,4,5,6,7,8,9 

180 DATA 10,8,3,10,37,12,10,67, 111,240) 82 940,292, 

1,18,39,2,19,39.7,19,44,1,20,39,4,20.44,6,21,39,3,21 ,44,6,21 ,4 

9,3,18,89,6,19,69,15,19,74,3,20,69,15,20,74,11,20,79,1,21,69,6 
,21,74,18,21,79,6 


4060 DATA 10,21. 12,10,84,30,11,15,9,11,49,9,18,22,2,18,86,6, 19 
122,7,19,27,1,19,86,15,19,61,3,20,22,4,20,27,6,20,56,15,20,61, 
11,20,66,1,21,22,9,21,27,6,21,92,3,21,66,6,21,61,18,21,66,6 


50 : 

60 REM X grilles 10 numéros - nises 4 et 10 fr - J10,FIC x 

70 : 

80 CHAIN MERGE"n'progaffi,bas", 10, ALL DELETE 80 

90 v=10:60SUB 1100:p$="1 - Mise 4 francs" :y=27:60SUB 5000 :p$= 
"2 - Mise 10 francs":y=28:60SUB 5000 PRINT bips 

110 IF t=38 OR t=49 THEN nisez4'RESTORE :GOTO 900 

120 IF t=50 OR t=123 THEN nise=10:RESTORE 160:60T0 900 


180 DATA 1,2,3,4,5,6,1,4,7,8,9,10,2,5,7,8,9,10,3,6,7,8,9,10 
160 DATA 1,2,3,4,5,6,1,2,3,4,7,8,1,2,3,4,9,10,1,2,5,6,7,8,1,2, 
5,6,9,10,1,2,7,8,9,10,3,4,5,6,7,8,3,4,5,6,9,10,3,4,7,8,9,10,5, 
6,7,8,9,10 


4080 DATA 10,21,4,10,54,10,11,18,10,11,49,10,19,22,1,18,56,1,1 
9,56,4,20,56,10,21,56,4,21,61,6 


50 ; 

60 REM * grilles 11 numéros - mises 6 et 12 fr - JI1,FIC à 
70: 

80 CHAIN MERGE"n:progaffi,bas",10,ALL,DELETE 80 

90 v=10:G0SUB 1100:p$="1 - Mise 6 francs" ;y=27;60SUB 5000:p#= 
“2 - Mise 12 francs" :y=28:60SUB S000:PRINT bips 

110 IF t:38 DR t=49 THEN nise=6:RESTORE :GOTD 900 

120 IF t=60 OR t=123 THEN nise=12:RESTORE 160:60T0 900 


150 DATA 1,2,3,4,5,6,1,2,3,7,8,9,1,2,3,9,10, 11,4,5,8,9,10,11,6 
17,8,9,10,11,4,5,6,7,8,9 

160 DATA 1,2,3,4,5,6,1,2,4,8,9,10,1,2,5,7,8,11,1,2,4,7,9,11,1, 
3,6,8,10,11,1,5,6,7,9,10,2,3,5,9,10,11,2,3,6,7,8,9,2,4,6,7,10, 
11,3,4,5,7,8,10,4,5,6,8,9,11,6,7,8,9,10,11 

4060 DATA 10,21,6,10,54,12,11,15,11,11,49,11,21 ,22,1,18,56,1,1 
9,56,4,20,56,10,21,56,5,21,61,5 

50 : 


60 REM X grilles 12 numéros - mises 16 et 132 fr - J12,FIC à 

70 ; 

80 CHAIN MERGE "niprogaffi,bas",10,ALL DELETE 80 

30 v=18:60SUB 1100:p$="1 - Mise 16 francs" :y=27:60SUB 5000:p$ 
2"2 - Mise 132 francs":y=28G0SUB S000:PRINT bips 

110 IF t=38 OR t=49 THEN mise=16:RESTORE : 60TO 900 

130 IF t=50 OR t=123 THEN nise=132:RESTORE 180:rg=1:f=1 :60SUB 

6000:F=0:60SUB 150:60T0 6000 

150 PRINT FNeu$(15,38)" stockage des nunéros:":FOR i=1 TO 132 
:PRINT FNcu$(15,26)"grille No'i:FOR n=1 TO 6:READ j:60SUB 160: 
NEXT n,i:RETURN 

160 FOR lecn=1 TO 49:IF lecn=nv(j) THEN nilrg)=nv(j):rg=rg+l 'P 








KT 
eu 
1,1,4,7,8,10,12,2,3,5,6,1 
6,7,9,10,3,4,5,7,10,11,3,4 


! 148,1, 
0,1,2,3,6,7, 
0,11,12,1,2 


1,2,3,4,9,12,1 
11 | US | 18,8,1 
1,1 11 15, 81,2 ! ci 


D- - 


10,84,132,11,18,12,11,49,12,18,22,1,18,56, 1 
119,61,4,20,22,10,20,56,50,20,61,15,20,66,1, 
6,60,21,61,30,21,66,6 


1060 DATA 10, 
2,19,22,4,19. 
21,22,8,21,27, 


50 

60 REM ? grilles 16 nunéros - nise 16 fr - J16,FIC * 
70: 

80 CHAIN MERGE"n:progaffi,bas",10,ALL DELETE 80 


; v=4:60SUB 1100:p$="1 - Mise 16 francs":y=27:60SUB 5000:PRIN 
bips 


110 IF t238 OR t=49 THEN nise=16:RESTORE :60T0 900 

150 DATA 1,2,3,4,5,6,1,2,7,8,9,10,1,3,7,11,12,13,1,4,8,11,14,1 
5,1,5,9,12,14,16,1,6,10,13,15,16,2,3,7,14,15,16,2,4,8,12,13,16 
12,5,9,11,13,18,2,6,10,11,12, 1,3 3,4,9,10,12,15,3,5,8,10,11,16, 
3,6,8,9,13,1 4,8,7,10,18,14,4,6,7, 3,11,16,5,6,7,8,12,15 

4060 DATA 10,39,16,11,34,16,20,41,3,21,41,7 

50 : 

60 REM X grilles 15 numéros - mise 10 fr - JIS,FIC * 

70 ; 


80 CHAIN MERGE"n:progaffi,bas" 10 ALL DELETE 80 
90 v=3:60SUB 1100:p$="1 - Mise 10 francs" :y=27:60SUB 5000:PRIN 


T bips 
110 IF t=38 OR t=49 THEN aise=10:RESTORE:60TO 900 

10 DATA 1,2,3,4,5,6,1,2,3,7,8,9,1,2,3,10,11,12,1,2,3,13,14,18 
48,6,7,8,9,4,8,6,10,11,12,4,8,6,18,14,18,7,8,9,10.11,12,7.8, 
9,13,14,18,10,11,12,13,14,15 

4060 DATA 10,39,10,11,34,15,21,41,1 












fidélité et vos impressions nous aident dans notre tâche 


quotidienne. Nous vous remercions de continuez à nous faire 

parvenir vos trucs, idées et commentaires que nous ferons partager 

à tous dans cette rubrique dont le succès se confirme chaque jour. 
La rédaction 


Yves LECUYER 88 Contreville 


Monsieur LECUYER nous envoie ses modifications pour 
GESCALC et ATHEMYS... 


GESCALC : 

But des modifications : Calcul des remboursements par 
mensualité : 

Ligne 1070 : Remplacer KY) 67 par KY) 68 

Ligne 1080 : Remplacer IF P=3 THEN P = 4 par IF P)2 
GOTO 1081 

Ligne 2010 : ajouter, ‘‘Mensuelle‘* en fin de ligne. 
Adjonction de deux lignes : 

1081 IF P=3 THEN P = 4 GOTO 1090 ELSE 1082 
1082 IF P=4 THEN P=12 


ATHEMYS : 

But des modifications : Travailler sur B: en doublant la 
capacité de la compta. 

Lignes 140, 640, 740, 1150, 3550 et 3620 : remplacer 
400 par 800. 

Avantage : On passe de 400 à 800 fiches. 

Inconvénient : Impossibilité de travailler sur M: donc moins 
de rapidité. 

Les quelques modifications répondent tout à fait à l'attente 
de nombreux utilisateurs et rapportent 5 disquettes vierges à 
leur auteur. 


Monsieur Sancomie 19 Vigeois 


intéressé par l'article concernant la conversion CPC-PCW 
(cf ECHO 3), j'ai voulu passer un programme écrit en BASIC 
sur CPC 6128 et le PCW m'indique ‘DIRECT COMMAND 
FOUND‘‘... Comment y remédier ? 


L'ECHO 

Un programme BASIC venant d'un CPC ne peut être 
récupéré par le PCW que sous réserve qu'il ait été 
préalablement sauvé en ASCII à l'aide de : 

SAVE ‘‘NOM DU FICHIER‘,A comme cela était indiqué. 
Notez que cela ne suffit pas à faire fonctionner le 
programme car des divergences existent au niveau des 
instructions sonores et graphiques qu'il faudra adapter 
comme l'a expliqué l'article d'Olivier Coquin. 


Patrice BRETANT 95 Groslay 


Je voudrais revenir sur l’article de Marc Hermion intitulé 
“DELUGE ASCII et MULTIPLAN‘ paru dans le mensuel 
N°8. En effet, celui-ci parle de la commande ‘SORTIE 
OPTIONS‘: de Multiplan mais n'évoque pas la fonction 
initialisation‘* qui je l'espère, fera l'objet d'un article. En 
attendant, je voudrais communiquer aux lecteurs qui seraient 
intéressés, certains codes d'impression à insérer dans cette 
commande. 


Elite élargi A° MAN 
Elite normal A°M 
Pica normal A\p 
Pica élargi AN 
Pica condensé AO 
Pica condensé élargi AOAÂN 





COURRIER 


AVIS : Un courrier très important nous arrive journellement et nous 
ne pouvons répondre personnellement à chacun d'entre-vous. 
Sachez que nous en sommes désolés tant vos témoignages de 


Ces codes peuvent être associés à : 
Italique 
Gras 
Double frappe 
Qualité courrier 


Ces codes seront sauvegardés en même temps que le fichier 


L'ECHO : 


Bravo pour ce travail que de nombreux Multiplannificateurs 
attendaient en trépignant et qui vous rapporte, pour 


l'occasion, 5 disquettes vierges. 






Monsieur Caillarec 78 St-Cyr L'Ecole 1: Not" tE 
Je vous signale l’utilisation adaptée de ISN "ST 1 
redéfinition du clavier parue dans le N°7 19 NRA A 
pour l'élaboration de programme en qi h aie ns 
DBASE. Toutefois, il paraît plus pratique 12 N°" 
de se servir de la combinaison 9 N"tI"fI 
[ALT] + [FLECHES DE DIRECTION] de & N "tt" f 
préférence à [SHIFT] + [FLECHES]. Les 13 N "TR TR 
majuscules sont obtenues par &L ù AAA TP 
[ALT] + [ENTER], les chiffres par 14 À SA “t'40D'" 
[EXTRA] et la zone de pavé numérique. 15 à SA "t'#9"" 
Le tout décrit dans la hard copy que je 19 À SA "1'80F'" 
vous joins. HI à 
L'ECHO : te al LADX 
ENS "1S15TS1S 


Dont acte ! 5 disquettes vierges pour 
vous tout seul ! 





Courrier Anonyme... 


LES ENCORE PLUS DE LOCOSCRIPT 
Explication : 

(+ PasC10D) 

(+ InterLO) 

(Centre) LES ENCORE PLUS DE LOCOSCRIPT 
huit fois de suite puis ensuite: 

(+ItaliQ\ Centre) LES ENCORE PLUS DE 
LOCOSCRIPT(-ItaliQ) 

et de conclure par : Dr LOCO, c'est fou ! !! 


L'ECHO : 


Ce truc génial mérite 5 disquettes que son auteur recevra dès 
qu'il aura décliné son identité avec copie de sa lettre 
anonyme ! 






LIBRE EXPRESSION 


G. Frank de Cuzey 49 Chateauneuf sur Sarthe 


SUPER BRAVO pour votre revue. Pour une fois je 
comprends (à peu près) tout ce que je lis. Continuez dans 
cette voie : il y a une tripotée de non spécialistes comme 
moi qui veulent apprendre et qui ne comprennent, ainsi que 
vous le dites si justement, que si le rédacteur écrit comme 
s'il s'adressait à des enfants. Les heures de compréhension 
que ce parti pris fait économiser aux lecteurs représentent, 
(vu votre tirage) , des MILLIARDS ! ! ! BRAVO ! 


COURRIER + L'ECHO DU PCW N°11 





De notre plus jeune fidèle. 
Emmanuel Lefort (10 ans) 33 Pessac 


Je suis un ‘‘mordu‘‘ de l'informatique et comme mon grand- 
père me dit souvent, on est obligé de me dire : ‘Emmanuel 
arrête l'ordinateur‘ et moi je ne suis pas très content... Je 
pense que le PCW est un bon matériel. 


Joseph Pillet 83 Toulon 


Furetant il y a moins de deux semaines dans une grande 
librairie, mais mérite-t’elle encore ce qualificatif, j’aperçus, 
pour la première fois, écrasé et malmené par le poids et le 
prestige de nombreuses revues informatiques, le N°9 de 
l’Echo du PCW. Venant dans ce temple de la science et du 
savoir en tout genre au moins une fois par semaine, ma 
surprise fût grande. 

Mon espoir ne fût pas déçu. J'en aime la pédagogie souriante 
et alerte et le nombre d’exemples vient en renforcer 
agréablement la technique. 

Pour répondre à la rubrique suggestions de la feuille jointe, 
voici mon sentiment. 

Je crains que le contenu de votre revue ne se présente que 
comme un monument en construction dont chaque lecteur 
devrait, comme moi, acquérir tous les précédents (ce point 
de vue est d’ailleurs confirmé par votre position sur les 
fouettés du N°9). 

Cette position est valable pour tout mordu qui désire se 
constituer un document de bibliothèque pour en savourer la 
substantifique moëlle mais ne saurait attirer un lecteur 
occasionnel ne trouvant que des articles d’un niveau, par 
définition, de plus en plus élevé et par conséquent à la 
compréhension de plus en plus hermétique. 

En conclusion, dans quelques mois, réservez une rubrique 
pouvant intéresser les manipulateurs débutants car si il n’y 
en avait pas ce serait la preuve de la fin de fabrication et 
donc de la vente du PCW (signé sieur de La Palice). 


L’ECHO : 


Vous mettez le doigt sur un des sujets qui nous préoccupe 
particulièrement et qui doit trouver des solutions qui 
conviendront à tous. 

Comme vous l'avez si bien exprimé, le lecteur occasionnel 
risque de s’effrayer de la technicité croissante de l'Echo 
pourtant, chaque mois nombre d’entre eux nous rejoignent 
et font ce que nous ferions tous dans ce cas là... Ils prennent 
le train en imarche et s'accrochent très fort pour rattraper un 
retard qui se comble aisément en compagnie des anciens 
numéros. 

Notre but n'est pourtant pas de forcer le nouveau lecteur à 
se procurer les anciens numéros mais il n'est pas non plus 
de rester dans des considérations généralistes qui lasseront 
ceux qui nous font confiance depuis l'origine et qui 
apprenent avec l’Echo ce que l’Echo apprend lui-même. 
Quoiqu'il en soit, nos nouveaux lecteurs ne seront pas 
laissés pour compte, puisque nous démarreront de nouvelles 
rubriques sur de nouveaux sujets (ce mois-ci CP/M, 
intelligence artificielle) qu'ils pourront découvrir et 
commencer AVEC NOUS. 


Question sur le serveur : 


Peut-on utiliser et formater une disquette double densité 
avec un seul lecteur standard et disposer ainsi de 360ko par 
face ? 

Signé MG 


L’ECHO : 

Ce qui fait la densité du disque n'est pas le support 
magnétique comme veut nous le faire croire AMSTRAD en 
vendant deux types de disquettes (C2F et C2FDD) 
rigoureusement identiques (pas en prix !) mais une question 
de lecteur. 

Le lecteur A fait toutes ses opérations dans sa dentité 
maximum qui est liée à la finesse de l'électronique 
(contrôleur) et de la tête de lecture. 

Le lecteur B, pour des raisons identiques, fait la même chose 
avec deux fois plus de finesse. 

En conséquence, formater en double densité ne change rien 
au problème puisque le lecteur ne sait pas lire dans cette 


COURRIER + L'ECHO DU PCW N°11 


COURRIER | | 
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densité là. Par contre, le lecteur B, sait lire les disquettes 
formatées en À puisqu'elles sont d’une densité deux fois 
moindre à sa résolution. 

Toutes les confusions viennent de ce fait et pour mémoire 
notez que ce n'est pas le disque qui fait la densité de 
stockage mais le lecteur. Ceci n'empêchant pas que l’on soit 
un jour obligé de faire des disquettes capables de suivre la 
densité du lecteur (exemple : disquette haute-densité sur IBM 
AT) 


COMMENT SAISIR UN PROGRAMME 


EN BASIC MALLARD 


La façon de saisir un programme Basic a fait 
l’objet d’une étude approfondie dans l’Echo du 
PCW N°1 in ‘‘Un départ saisissant‘ qui reste 
complémentaire au livre 2 livré avec les PCW. 


Résumé : 

Allumez l'ordinateur et insérez la face 2 de la 
disquette système. 

A l'affichage de ‘‘A) ‘‘ tapez BASIC suivi d’une 
pression sur [RETURNI]. Une fois sous basic, 
lancez la numérotation automatique par 

AUTO + [RETURN]. 

A chaque numéro de ligne affiché, tapez son 
contenu conformément au listing de l’article. 
Pour sortir du mode AUTO afin de corriger une 
ou plusieurs lignes, tapez [STOPI]. 

Pour corriger une ligne, tapez EDIT suivi de son 
numéro et d’une pression sur [RETURN]. 
Exemple : EDIT 10 [RETURN] 

Pour lister sans corriger, tapez LIST [RETURN]. 
Exemple : LIST 10 [RETURN] ou LIST -100 
[RETURN] ou LIST 10-100 [RETURN] ou LIST 
[RETURN] 

Faites des sauvegardes régulières du programme, 
même en cours de saisie, en mettant une 
disquette vierge en A et en tapant : SAVE 
‘‘Nom du programme‘ [RETURN]. 

Exemple : SAVE ‘‘ECHO‘‘ [RETURN]. 


Conseils : 


Ne lancez jamais un programme avant 
d’en avoir fait une sauvegarde. 


Utilisez les mêmes noms que ceux conseillés par 
l’auteur (dans son article ou sur la disquette qui 
l'accompagne). 

Vérifiez ligne par ligne que ce que vous avez 
tapé est strictement identique à ce qu’indique le 
listing. Soyez particulièrement vigilants dans les 
cas suivants : 

Ne confondez pas : Point virgule et deux points, 
point et virgule, i majuscule et 1 minuscule ou le 
chiffre 1. 

Respectez : Les espaces, les guillemets, les REM 
et les numéros de lignes. 

Ne modifiez pas un programme avant d’être 
certain qu’il fonctionne totalement. 

Les erreurs se produisent rarement dans la ligne 
responsable de celles-ci. Seule SYNTAX ERROR 
ou erreur de syntaxe dans la saisie, arrive dans 
une ligne mal écrite. c’est pour cette raison que 
le basic Mallard l’édite automatiquement. 

Dans tous les cas, reportez-vous à l’annexe II 
du manuel Amstrad. 
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'ù d À 4: \ = l’'émulateur de minitel sur PCW 


SYNEA et MYNEA sont distribués clusivité par DDI. (1) 48 67 28 44 
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ce qui de Fait de bien 


sur votre 


de 































f Sur # de Va 

est distribué par Zi 

éE DUPLICATION ET DIFFUSION 
INFORMATIQUES 


La docum Étion complète ainsi que la liste des revendeurs agréés D.D.I 


| vous QUI immédiatement et gracieusement envoyées Sur simple appel au : 


(1) 48.67.89.54 (HOT LINE PCW) 


Ou par courrier à:  D.D.I. 
1 SIeNE ei 
C.A.P.N. “Le Bonaparte” BP 37 
93153 LE BLANC-MESNIL CEDEX 


it 


